Macro to Delete rows in Col A contining certain text

[howard]

I need code to delete rows containing the folowing text in "Total" Col A on sheet "Statement" for e.g

Total Parts Transactions Total Other Receivables Transactions Your assistance in this regar is most appreciated

 

[veyselemre]

Hi, try this...

Sub test()

    Dim rng As Range
    With Sheets("Statement")
        Set rng = .Range("A1:A" & .Cells(Rows.Count, 1).End(3).Row)
    End With

    Dim cell As Range, dRow As Range
    Set dRow = Range("IV1")
    For Each cell In rng.Cells
        If InStr(cell.Value, "Total") Then
            Set dRow = Union(dRow, cell)
        End If
    Next cell
    If dRow.Cells.Count > 1 Then Intersect(dRow, Columns(1)).EntireRow.Delete

End Sub

 

[mumps]

Assuming headers are in row 1, try:

Sub DeleteRows()
    With Sheets("Statement")
        .Range("A1").CurrentRegion.AutoFilter 1, "=*Total*"
        .AutoFilter.Range.Offset(1).EntireRow.Delete
        .Range("A1").AutoFilter
    End With
End Sub

 

[howard]

Many thanks for the help guys. Both your code works perfectly

 

[mumps]

Glad to help.