Help With Advanced Filter - Pulling My Hair Out

[DaveHappyNorm]

Hello all

I m struggling to extract all unique values from a column.

I have the following data in column A starting at row 1

Y
Y
Y
N
N
Y
Y

Using the following code:-

Range("A1:A7").AdvancedFilter Action:=xlFilterCopy, CopyToRange=ActiveSheet.Range("B1") Unique:= True

I get the following output:-

Y Y
Y Y
Y N
N
N
Y
Y

Why does Y appear twice?

 

[Fluff]

Hi & welcome to the board.
Advanced Filter needs a header, so it is treating A1 as the header, rather than data