Excel VBA to copy unique values duplicate 1st value

Question

I have this excel VBA code

Sub Module()

Range(\"A1:A10\").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(\"D1\"), Unique:=True

End Sub
         


        

Answer 1

Insert another cell above cell A1. Write "Header" or any other text in this box. Change the range to A1:A11. This should solve your problem.