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