> On Jun 16, 4:50 pm, kg_singapore
> discussions.microsoft.com> 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
>