Modifying Delete Row based on Extract from Text

Does this do what you want?

Sub DeleteRows()
    Dim iLastRow As Long
    Dim i As Long
    Application.ScreenUpdating = False
    iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = iLastRow To 1 Step -1
        If Cells(i, "A").Value = "column1" Or Cells(i, "A").Value = "total amount" Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True
End Sub