Try this

Dim rng As Range
Set rng = Selection
rng.AutoFilter Field:=41, Criteria1:="STATE OF ILLINOIS"
rng.SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet15").Select
ActiveSheet.Paste
rng.Delete
Sheets("Sheet15").Name = "SOI"


--

HTH

RP
(remove nothere from the email address if mailing direct)


"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"