taVBA:バラバラのデータを並び替えしたい

Question

前提・実現したいこと

画像のようにバラバラに並べられているデータを
名前でまとめて並べたいです。

田中の項目は連続で並べて、鈴木、木村も画像のように
連続に並べて表示させたいです。

並び替えたデータは新しいシート2に表示させたいです。

ご教授お願いいたします。

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

 .SortFields.Add2 Key:=Range("F1"), CustomOrder:="田中,鈴木,木村,川村,横山,井田,鈴木,大田"
↑の行
vba オブジェクトは、このプロパティまたはメソッドをサポートしていません
というエラーの発生

該当のソースコード

Sub Macro3()
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("F1"), CustomOrder:="田中,鈴木,木村,川村,横山,井田,鈴木,大田"
        .SetRange Range("F1").CurrentRegion
        .Header = xlYes
        .Apply
    End With
End Sub

Comments

[1T2R3M4]

作業依頼ですか。

[hex309]

「並べ替え」の機能については調べられましたか？
どこまでご自身でできるのか教えて下さい

[pomiw0000]

調べても情報がでてこないため、こちらで質問させていただきました。

[1T2R3M4]

Excel 並び替え
で検索すると76万件以上ヒット
Excel 並び替え VBA
で検索すると18万件以上ヒット
しますが
どんな語句で調べたのでしょうか。

[jinoji]

「マクロの記録」機能を使ってその作業を自分で実行してみましょう。

[pomiw0000]

質問内容を編集したのでご確認お願いいたします。

[pomiw0000]

解決しました。皆様ありがとうございます。