On Jun 16, 5:17*pm, Karthi Ganesh
wrote:
Did you check that there are sufficient rows below the last row of your data?
It may be one reason.



"James8309" wrote:
On Jun 16, 4:50 pm, kg_singapore
wrote:
Where do you want the results to be placed,

*one row below
or
one column right

In your code, you are trying place next row. *Pl chk this

regards
KarthiGanesh

"James8309" wrote:
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- Hide quoted text -

- Show quoted text -

One row below the Last row. Why is it keep returning "Reference
error"?

Can you help?

Thx- Hide quoted text -

- Show quoted text -

Even if I do CopytoRange:=("C5") it returns the same error. column C:C
is totally empty.