ActiveFilter using VBA code

2003

The following code copies over only the first cell from
Sheets("COA EOY") to Sheets("ActiveAccounts").

Even if I change the To: Range to Range("A1:A250") the result is the
same. BTW, the data in Sheets("COA EOY").Range("A1:A250") is 250
Formulas displaying account numbers.

CURRENT VBA CODE:
Sheets("COA EOY").Range(Cells(2, "A"), _
Cells(Rows.Count, "A").End(xlUp)(1)).AdvancedFilter
Action:=xlFilterCopy, _
CopyToRange:=Sheets("ActiveAccounts").Range("A1"), Unique:=True

If I copy/paste the Sheets("COA EOY").Range("A1:A250") to Values Only,
then the above VBA code works the way I expected whether Unique:= True
or False.

What am I missing or need to learn?

EagleOne