Excel2010 /VBA ユーザー設定リスト並び替えができない

必要データを別bookから転記した後、所属支店・氏名ｱｲｳｴ順並び替えを１度の操作で完了させたいのですが、並び替えができません。（完了するのですが、並び替えが出来ていません）
VBA初心者です。ご教示よろしくお願いします。


（途中から記します）
i = 2
Do While Range("B" & i).Value <> ""
On Error Resume Next
With ThisWorkbook.Worksheets("①受講者リスト")
.Cells(i, 4).Value = Application.WorksheetFunction.VLookup(.Cells(i, 2).Value, SerchArea, 3, 0)
<<幾つかの処理があります>>
End With
i = i + 1
Loop
ActiveSheet.Sort.SortFields.Add _
Key:=Range("G2") _
, Order:=xlAscending, CustomOrder:= _
"北海道,東北,北関東,川越,東関東" _
, DataOption1:=xlSortNormal
ActiveSheet.Sort.SortFields.Add _
Key:=Range("D2") _
, Order:=xlAscending
With ActiveWorkbook.Worksheets("①受講者リスト").Sort
.SetRange Range("B1:Y41")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

質問者からの補足コメント

• 

  失礼しました。「ふりがな」の並び替えを外していました。
  ただ、このままでも、所属支店の並び替えも全くされず、もとの順番のまま表示が変わらないので　並び替えのVBA記述が　どこかしらおかしいのだと思うのですが、、、

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/12/05 15:22

• ありがとうございます。
  作業Bookには、予め　「A列：項番　Ｂ列：社員番号 C列：氏名」が入力されており、
  別Bookから　　「Ｄ列：ﾖﾐｶﾅ」～Y列までのデータを取得後、「Ｇ列：配属支店」基準に並び替えを行い、「D列：ﾖﾐｶﾅ」昇順を行いたいと思います。（最初の質問で、D列並び替え記述を省いてました）
  
  どうぞよろしくお願いします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2017/12/05 15:56

• ラックさん、ありがとうございます。
  ①表は完成しています。　
  ②Ａ列は項番ですので、並び替えはＢ列～Ｙ列で行いたいです。
  ③タイトルは１行目にあります。
  ④Ｇ列：配属支店が優先します。
  
  この後、作業ができないため、続きは明日でも結構です。　よろしくお願いします。

  No.3の回答に寄せられた補足コメントです。 補足日時：2017/12/05 17:11

• 

  ラックさん、何度もありがとうございます。
  アドバイスの通り、VBAを作り直してみました。「①受講者リスト」を確実にアクティブにするために、次のようにしてみましたが、やはり並び替えができませんでした。
  
  Sheets("①受講者リスト"）.Activate　　　
  ActiveSheet.Sort.Sortfields.Clear
  ～以下、アドバイスの通り

  No.5の回答に寄せられた補足コメントです。 補足日時：2017/12/06 14:36

• 

  すみません、ラックさん、できました!!
  アクティブにさせるところを
  ThisWorkbook.Worksheets(”①受講者リスト").Activate としたら　ソートされました。

    補足日時：2017/12/06 14:43

No.5 ベストアンサー 回答者： GooUserラック 回答日時： 2017/12/06 10:38

もしかしてですが並べ替えるシートが「①受講者リスト」だけど、そのシートがアクティブではない。

と言う事は無いですよね？

この回答へのお礼

ラックさん、何度も有り難うございました。何となくお名前に記憶があったのですが、別の件でも回答を寄せてくださってました。　何度も助けてくださって、（途中で投げることもなく）　有り難うございました。　<(_ _)>

お礼日時：2017/12/06 14:48

No.6 回答者： GooUserラック 回答日時： 2017/12/06 14:42

「Sheets("①受講者リスト"）.Activate」ではなく「Sheets("①受講者リスト").Select」としてもダメで

すか？

No.4 回答者： GooUserラック 回答日時： 2017/12/05 19:06

「Loop」の次の行からを以下に変更してみてください。

--------------------------------------------------------------------------------
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add _
Key:=Range("G2"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
CustomOrder:="北海道,東北,北関東,川越,東関東", _
DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add _
Key:=Range("D2"), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Columns("B:Y")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
--------------------------------------------------------------------------------

No.3 回答者： GooUserラック 回答日時： 2017/12/05 16:59

「配属支店名」はオリジナルの順番に並び替えるのですよね？

それですと２回に分けてソートしないとダメですね。

① 作業Book上には「Loop」の次の行の時点でソート出来ていない表は出来ているのですよね？
② その範囲が「B1:Y41」でしょうか？
③ そこにはタイトル行は有るのでしょうか？
④ ソートの優先順位は「Ｇ列：配属支店」の方が「D列：ﾖﾐｶﾅ」より高いですよね？

No.2 回答者： GooUserラック 回答日時： 2017/12/05 15:30

レイアウトやどこの列を基準にどのようにソートしたいのかを提示していただけないと、処理出来ていないコードを示されただけでは、こちらではどう対処していいか判断できません。

よろしくお願いいたします。

No.1 回答者： GooUserラック 回答日時： 2017/12/05 14:59

レイアウトなどよく判りませんが「ふりがな」の欄は「所属支店・氏名」欄とは別に有るのでしょうか？

もし無ければ「所属支店・氏名」欄にセットされている「ふりがな」もセットしないとダメです。
セルのコピー&ペーストでは「ふりがな」もコピーされますが、セルの「値（Value）」の代入の場合は「ふりがな」は含まれません。