.
Or maybe :
Code:
Option Explicit
Sub sbDelete_Rows_With_Specific_Data()
Dim lRow As Long
Dim iCntr As Long
Dim iCol As Long
iCol = 26 'add cols here
lRow = 20 'add rows here
For iCol = 1 To 26 'match last col number here with total cols above
For iCntr = lRow To 1 Step -1
If Cells(iCntr, iCol) = "loan" Or Cells(iCntr, iCol) = "financial" _
Or Cells(iCntr, iCol) = "bank" Or Cells(iCntr, iCol) = "equity" Then ' You can change this text
Rows(iCntr).Delete
End If
Next
Next
End Sub