Deleting filtered data

[davethewelder]

Hi, I have a macro which filters data and deletes using the code below.

Cells.Select

With Selection
.AutoFilter Field:=30, Criteria1:="1"

Selection.EntireRow.Delete Shift:=xlUp
End With
Unfortuantely this deletes the header row as well. Does anyone know how to
avoid this happening?

Any help greatly appreciated.

cheers,

Davie

 

[Ron de Bruin]

See this example
http://www.rondebruin.nl/delete.htm#AutoFilter

 

[davethewelder]

Ron, thanks for the quick reply. The example worked perfectly.

I posted a problem on the site three days ago but unfortunately no-one has
picked it up and I am running out of time to complete this report. Could you
possibly have a look at it. It is called "Formatting cell and adjacent cell".

If you can't, thanks anyway.

Davie