Excel2021 VBAで重複する行を削除するときに、隣の列の値も移動させたい

Question

前提・実現したいこと

※アルファベットが列で、〇で囲んだ数字が行を表しています

⓪ A B C D E F
① 1 1 1 2 ☆ △
② 1 1 1 2
③ 2 1 1 1 ☆ △
④ 1 2 1 2 ☆ △
⑤ 1 1 1 2
⑥ 2 2 2 2
⑦ 1 2 1 2

をExcel2021のVBAで精査して、
A,B,C,Dの列がすべて重複する時にその列を削除したいのですが、

ソースコード

Sub TEST()    
    ActiveSheet.Range("A:D").RemoveDuplicates Columns:=Array(1, 2, 3, 4)    
End Sub

を実行するとA,B,C,Dの列が重複する部分は削除出来るのですがE,Fは同じ場所に残り

⓪ A B C D E F
① 1 1 1 2 ☆ △
② 2 1 1 1
③ 1 2 1 2 ☆ △
④ 2 2 2 2 ☆ △
⑤
⑥
⑦

のようになります。

⓪ A B C D E F
① 1 1 1 2 ☆ △
② 2 1 1 1 ☆ △
③ 1 2 1 2 ☆ △
④ 2 2 2 2
⑤
⑥
⑦
のように対応するE,Fを同時にそろえるにはどのようにすればいいでしょうか？
どのように調べればいいのかわからずに困っています。
ご教示お願いいたします。

Answer 1

ActiveSheet.Range("A:F").RemoveDuplicates Columns:=Array(1, 2, 3, 4)

Range("A:F")が対象になる範囲でColumns:=Array(1, 2, 3, 4)が範囲内のどの位置の重複なのかを指定する形なのでこれでどうでしょう

Comments

[tateyokonaname]

ありがとうございます、無事できました。
VBA初心者で気づきませんでした、ありがとうございました。