Hi,

I am trying to do an advance filter in VBA. I do not understand why it
is creating a "reference error" I am just trying to paste the unique
advanced filter result to the very last row + 1 on column A. Can
anyone help? Thanks alot!


Sub Testing()

Dim LR as Integer
Dim LR1 as Integer
Dim Range123 as Range

LR = Range("A65000").End(xlUp).Row
LR1 = LR + 1

Set Range123 = Sheets("Sheet1").Range("A2:A" & LR)
Range123.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=("A" &
LR1 _
), Unique:=True

End Sub

Regards

Jay