> 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:=Range("A" & LR1), _
> Unique:=True
>
> End Sub
>
>
>
> --
> ---
> HTH
>
> Bob
>
>
> (there's no email, no snail mail, but somewhere should be gmail in my addy)
>
>
>
> "James8309" gmail.com> wrote in message
> news:c5ca8c4c-036c-48d1-992e-a347a5402cd8@u36g2000prf.googlegroups.com...
> On Jun 16, 5:17 pm, Karthi Ganesh
> discussions.microsoft.com> 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
>>> 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- Hide quoted text -

>>
>> - Show quoted text -

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