You may find this code useful. If you have more than just one word to look for and delete the entire row, you highlight the column in your case 'B' then run this code. It asks you to put what words to look for in the input box then deletes the entire row.

Not quite what you are looking for in this case but may come in useful in the future.

Sub DeleteRowInInputBox ()
Dim s As String, iCol As Long, LR As Long, i As Long
Dim R As Range, F As Boolean, j As Long
iCol = ActiveCell.Column
s = "£"
Do While s <> ""
s = LCase(InputBox("Enter word to look for"))
If s = "" Then Exit Sub
LR = Cells(Rows.Count, iCol).End(xlUp).Row
For i = 1 To LR
If LCase(Cells(i, iCol).Value) Like "*" & s & "*" Then
If R Is Nothing Then
Set R = Cells(i, iCol)
j = j + 1
Else
Set R = Union(R, Cells(i, iCol))
j = j + 1
End If
F = True
ElseIf Cells(i, iCol).Value <> "" Then
F = False
Else
If F Then
If R Is Nothing Then
Set R = Cells(i, iCol)
j = j + 1
Else
Set R = Union(R, Cells(i, iCol))
j = j + 1
End If
End If
End If
Next i
If Not R Is Nothing Then
R.EntireRow.Delete
MsgBox j & " rows deleted", vbInformation
Set R = Nothing
End If
F = False
Loop
End Sub