Problems with Advanced Filter

[mms180]

Please if anyone can help me...

I am using Advanced Filter code to display a set of unique values from a large column of data

here is my code to advanced filter

Sheets("Data&quot.Columns("D&quot.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("B9&quot, Unique:=True

(Action is on the first line as well)

when I try to execute the code, a compile error appears, Range is highlighted and the error is Expected Array...

if anyone can help me solve this problem it would be very helpful...

I ran this exact same code on another project and it worked fine, so I checked the reference libraries and that doesn't appear to be the problem....