remove cell contents if contains certain word in a specific column

Hi there,

See how this goes (thought initially on a copy of your data in case the results are not as expected):

Option Explicit
Sub ClearCellsContainingText()
    Do Until Cells.Find(What:="text", After:=ActiveCell, _
    LookIn:=xlFormulas, LookAt:=xlPart, _
    SearchOrder:=xlByColumns, _
    SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False) _
    Is Nothing
    
    Columns("B").FindNext.Clear
    Loop

End Sub

HTH

Robert