Hi

The filter function see the first cell as a heading.

Expand your range to : D9:D999. Just notice that it will copy the filtered
range including the heading to the desired place.

Hopes it helps.

Best regards,
Per

"C. Corodan" skrev i meddelelsen
...
I have the following code:

Range("D10").Select
Range("D10:D9999").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range( _
"D11111"), Unique:=True

The list of unique values always has a duplicate item at the beginning, fo
rexample:

A-Customer
A-Customer
B-Customer
C-Customer
D-Customer
Not assigned

Any idea what is the error?