Advance filtering unique records

[av8tordude]

I'm trying to write a code that will filter unique records from Column A & B and pastes the unique records in column Y & Z (See attached). It flags a (run-time error 1004) message without highlighting the error. Can someone assist.

Thank you kindly

Sub mac()LRow = Range("A" & Rows.Count).End(xlUp).Row


Range("A7:B" & LRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("Y7:Z" & LRow), Unique:=True
End Sub

[paulked]

Include the header row:

Sub mac()
    LRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A6:B" & LRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("Y7:Z" & LRow), Unique:=True
End Sub

Also, you only need the starting cell for your destination, so

Sub mac()
    LRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A6:B" & LRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("Y7"), Unique:=True
End Sub

should work too.

[av8tordude]

When I put the code in my file, I'm still getting the error. Not sure why. See attach

[paulked]

Sorry, but no error when I ran it.
VBAX67157.jpg

[av8tordude]

Ok...I see what happen. I had to clear the results before filtering again. Thank you for helping me resolve this.

[paulked]