See the second example on my page

Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count) _
.SpecialCells(xlCellTypeVisible)


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


"Lime" wrote in message ...
Thanks Bob & Ron. You both were a big help..
The below work well but, it remove the header from the main sheet. All I
need is the filter results and leave the header. Any sugestion?

"Bob Phillips" wrote:

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"