VBA从列表中提取唯一值到另一个工作表[重复]

Question

在过去发布的关于在另一个工作表上将唯一值从一列复制到另一列的帖子中，提供的代码效果很好，只是它还复制了数据的标题行。

我尝试了多种方法来修改代码，但我不擅长 VBA，我无法让它工作。任何人都可以修改此代码，以便将唯一值从一列复制到另一列，但标题行除外？

Sub AdvFilter()
    Dim ws As Worksheet, sh As Worksheet
    Dim rng As Range, Frng As Range

    Set ws = Sheets("Flag Update (2)")
    Set rng = ws.Range("A1")
    Set sh = Sheets("ICM flags")
    Set Frng = sh.Range("A:A")

    Frng.AdvancedFilter Action:=xlFilterCopy, copytorange:=rng, Unique:=True

End Sub

Answer 1

Sub Module()

Application.ScreenUpdating = False

With Range("A1:A10")
    .Copy .Offset(, 3)
    .Offset(, 3).RemoveDuplicates Columns:=1, Header:=xlNo
End With

Application.ScreenUpdating = True

End Sub