Modify macro to copy to next available row

L

Liketoknow

Hi...ihave played around and created a macro that with the use of autofilter
copies my data from sheet 1 to sheet 2 then i filter out the data i don't
need on sheet 1 ..works great

Unfortunately when it copies it dosen't copy to the next available row in
sheet 2..it goes anywhere.Cna someone look at this macro and show me the way
to have te data that is filtered copied to the next available row in sheet 2

thanks

Sheets("Filled Orders").Select
Sheets(" Orders").Range("B6:I25000").AdvancedFilter Action:=xlFilterCopy _
, CriteriaRange:=Sheets(" Orders").Range("B6:I25000"), CopyToRange:= _
Range("B6:I25000"), Unique:=False
Sheets("Orders").Select
Range("B6:I52").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="<>"
Selection.AutoFilter Field:=8, Criteria1:="="
 
Top