perhaps something along the lines of this
Code:
Sub RemoveKeyWordRows()
Dim lr As Long, i As Long, cel As Range, temp As String
Application.ScreenUpdating = False
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = lr To 2 step -1
temp = ""
For Each cel In Range(Cells(i, "A"), Cells(i, "E"))
temp = temp & cel.Value & " "
Next cel
'(keywords-loan,financial,bank,equity)
If InStr(temp, "loan") > 0 Or _
InStr(temp, "financial") > 0 Or _
InStr(temp, "bank") > 0 Or _
InStr(temp, "equity") > 0 _
Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
Instr is case sensitive.