マクロを使う別の方法です。
XXXの部分を特定の文字に置きかえて実行してください。
また、「特定の文字があれば」というのが、その文字列を含む、というのでなくセルの値がその文字列ならば、というのであれば、LookAt:=xlPart の部分を LookAt:=xlWhole に書き換えてください。
Sub DelLines()
Dim R As Range
Do
Set R = ActiveSheet.Range("B:B").Find(What:="XXX", LookAt:=xlPart)
If R Is Nothing Then Exit Sub
R.EntireRow.Delete
Loop
End Sub