Hi, winmaxservices1,
use the Autofiloter and "Starts with" to filter and delete the rows/entries manually.
As your data shows empty cells next to the searched words you may like to use
Sub EF1058181()
On Error Resume Next
Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Sub EF1058181_2()
On Error Resume Next
Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Offset(0, -1).ClearContents
End Sub
Ciao,
Holger
Bookmarks