Set advanced autofilter to paste to end of list

[Cammandk]

I am using the advanced filter to extract data to a worksheet.
I need this data to come from various sheets - so thought this might work (i'm sure there is another vba way - but i'm a newbie) - if I can get the CopyToRange: to paste the data at the end of the list - Is this possible?

So SCH6 code ok - need SCH7 copy to paste to the end of the list that SCH6 has left.

Sheets("SCH6").Range("G5:U112").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Floats!Criteria"), CopyToRange:=Range( _
"Floats!Extract"), Unique:=False


Sheets("SCH7").Range("G5:U112").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Floats!Criteria"), CopyToRange:=Range( _
"Floats!Extract"), Unique:=False

Thanks
DK

 

[Luke M]

Two things:
First, make sure that the Floats sheet is active, or this won't work.
Second, to paste to end of list, I'd do something like:

..., CopyToRange:=Worksheets("Floats").Range("A65536").End(xlUp).Offset(1,0), ...