Following macro deletes a row whose first cell begins with an input value:
'ask the user for an input string
SrchStr = InputBox("Delete rows that begin with..")
'add asterisk at the end for - begins with condition
SrchStr = SrchStr + "*"
Dim i As Long
i = 2
'loop till empty cell in first(1) column
Do Until Trim(Cells(i, 1)) = ""
If Cells(i, 1).Value Like SrchStr Then
'no any increments cause this cell is being deleted
i = i + 1