Hi Lime

Try this
http://www.rondebruin.nl/copy5.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Lime" wrote in message ...
Hello,
What I am trying to do is copy all the results of a filter and paste them to
a new sheet, and then deleting the rows of filter results from the main
sheet. I will have many different filters following this one so I am assuming
NEXT. Here is what I have so far. But it only copies certain rows, I need it
to copy all of the filter reusts as the results change daily. Any Help...
Thanks,
Lime

Selection.AutoFilter Field:=41, Criteria1:="STATE OF ILLINOIS"
Rows("18:18").Select
Range("AJ18").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet15").Select
ActiveSheet.Paste
Sheets("Sheet15").Select
Sheets("Sheet15").Name = "SOI"