Thanks.. Ron
It did not work as I wanted so I just copied the header back over. It seemed
like a logical work around. I really do apreaciate your Help as always.
Lime

"Ron de Bruin" wrote:

Hi Lime

I think you copy it exact in Bob's example ?

Try this

Sub Delete_with_Autofilter()
Dim DeleteValue As String
Dim rng As Range
Dim rng2 As Range

Set rng = Selection
DeleteValue = "STATE OF ILLINOIS"
rng.AutoFilter Field:=41, Criteria1:=DeleteValue
With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not rng2 Is Nothing Then
rng.EntireRow.Copy Sheets("Sheet15").Range("A1")
rng2.EntireRow.Delete
End If
End With
ActiveSheet.AutoFilterMode = False
End Sub



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


"Lime" wrote in message ...
I am placing Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1,
.Columns.Count) _
.SpecialCells(xlCellTypeVisible)
but I keep bugging...

"Ron de Bruin" wrote:

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"