remove cell contents if contains certain word in a specific column

If you are referring to my code

Sub replace()
With Range("B1", Cells(Rows.Count, 2).End(xlUp))
    .replace "*text*", Empty
End With
End Sub