I wish to copy a list of entries to a new sheet.
If i use the code below it first copy's cell "b2" and then from the
last cell to the first.
Now i have a double entry.

I want it to end at cell b2, because the first cell has collum
headings in it!

How do i write the code so that cell b2 is not copied first?

kind regards

Sjoerd


this is my code:

Sub CopyUniqueEntries()

Dim uniquelist As range

Set uniquelist = ActiveSheet.range("A2", "A10000")

Sheet1.range("b2",
Sheet1.range("b65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=uniquelist.Cells(1, 1),
Unique:=True

End Sub