Dave, I do have a header row but I was not wanting to bring that data over,
but I can work around that,
Thanks Paul B

"Dave Peterson" wrote in message
...
Advanced filter expects the first row in the range to be the header.

Maybe you can use E1:E5000

or add headers, then include that row, too.

Paul B wrote:

Set FilterRange = Range("E2:E5000")

FilterRange.AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("J2"),
Unique:=True

I put data like this in column E, down to row 100, row 1 has the header
"Number"

Number

1

2

3

1

2

3

But when I run the code I get, why am I getting 2 number 1's ???

1

2

3

1

--

Dave Peterson