delete all header rows excel VBA

[p4nny]

Hi,

Ignoring row1, I would like to delete all rows in Sheet1 where the column A has the word "ID"

Appreciate any help

Thanks

 

[WaterGypsy]

I think this should do the job

Sub Macro1()
Dim imaxline As Integer
Dim icurrline As Integer

imaxline = Range("a1").SpecialCells(xlCellTypeLastCell).Row
If imaxline > 1 Then
    For icurrline = imaxline To 2 Step -1
        If Range("a" & icurrline).Value = "ID" Then
            Rows(icurrline).Delete xlShiftUp
        End If
    Next icurrline
End If
End Sub

 

[Fluff]

Another option

Sub delID()
   With Sheets("Sheet1")
      If .AutoFilterMode Then .AutoFilterMode = False
      .Range("A:A").AutoFilter 1, "*ID*"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub