2行目から10000行目の100列目までを、優先順位を２つ設定して昇順に並べ替えるvba

2行目から10000行目の100列目までを、優先順位を２つ設定して並べ替えるvba
（優先１⇒　29列目、優先２⇒　１列目）

—– べんりあつめ。—–

ActiveSheet.Range(Cells(2, 1), Cells(10000, 100)) _
.Sort Key1:=ActiveSheet.Cells(1, 29), order1:=xlAscending, _
Key2:=ActiveSheet.Cells(1, 1), order2:=xlAscending

※ちなみに降順なら、xlAscendingを、xlDescendingに変更する。