Sub Test()
Dim C As Range, Plg1 As Range, k As Range, Plg2 As Range
Set Plg2 = Range(Cells(1, 2), Cells(Columns.Count, 25).End(xlUp))
Set Plg1 = Range("A2:A302")
For Each C In Plg2
Set k = Plg1.Find(C.Value, LookAt:=xlPart)
If Not k Is Nothing Then
Range(C.Offset(1, 0), k.Offset(0.1)).Clear
End If
Next C
End Sub