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.
26345

[av8tordude]

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

[paulked]

:thumb