vba sort 並び替え ヘッダーが認識されない

実現したいこと

sortによる並び替えを実現したい

前提

・T列（昇順）→V列（昇順）→A列（昇順）となるように並び替えを実施
・２行目をヘッダーに設定する

発生している問題・エラーメッセージ

並び替え自体は意図する形でできていますが、なぜか2行目がヘッダーとして認識されず、２行目も並び替えの対象となってしまいます。
原因が分かれば教えていただけないでしょうか。

該当のソースコード

vba

1Sub 並び替え()2 3 With ActiveSheet.Sort 4 .SortFields.Clear 5 .SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending 6 .SortFields.Add Key:=Range("V2"), SortOn:=xlSortOnValues, Order:=xlAscending 7 .SortFields.Add Key:=Range("T2"), SortOn:=xlSortOnValues, Order:=xlAscending 8 .SetRange Range("A2").CurrentRegion 9 .Header = xlYes 10 .Apply 11 End With12 13End Sub14 15 16 17

試したこと

上記のコードのほか1列ずつ個別に並び替えるコードも試しましたが、結果は同じでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。