过滤列表中范围的唯一值

Question

我想过滤以获得唯一的范围。样本范围作为图片。

数据输入

我使用了这段代码

Sub main()

Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("New Spec")

ws.Range("A" & 1, "F" & 6).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ws.Range("H1"), Unique:=True

End Sub

，但它在下面返回错误结果： 结果

我的预期结果在这里：