Hello

I have this code to delete rows blank in columns at my choice
but I need also include another choice

"delete all rows if rows in X column are blank OR have a certain word (also
at my choice "


Is it possible ???
Thank you
cc
Sub DeleteEmptyRowsMain()
Dim myColm As Range
Dim LastCell As Range
Set myColm = Application.InputBox("Choose Start of column to clear",
Type:=8)
Set LastCell = Cells.Find("*", , , , , xlPrevious)
On Error Resume Next
If Not myColm Is Nothing Then
Range(myColm, Cells(LastCell.Row,
myColm.Column)).SpecialCells(xlCellTypeBlanks).Ent ireRow.Delete
Else
MsgBox "No Range Selected", vbOKOnly, "Error"
End If

End Sub