Filtering Uniques in Column

[Luke777]

Hi all!

I'm using the following code found HERE (old thread so I won't ask questions there).

Public Sub Test()

ActiveSheet.Range("A2:A65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("B2"), Unique:=True

End Sub

Which is notably shorter that the other solutions.

Interestingly, my first result and only my first result is duplicated. B2 and down looks something like

916

916

542

1308

...

I'm just wondering if anyone can explain why it works perfectly with the exception of the first duplicate?

Or alternatively provide an equally short solution

Thanks!

 

[Fluff]

The Advance filter requires a header row, so in your case it's treating A2 as the header, which is why it's repeated.

Try changing A2 to A1 & copying to B1