Option Explicit
Option Compare Text
Sub Word_Zero()
Dim Cel As Range, i&, Ar
Ar = Array("*CRATE*", "*WOODEN BOX*", "*RACK*", "*PLASTIC BAG*")
For Each Cel In Range("S2", Cells(Rows.Count, "S").End(xlUp))
For i = 0 To UBound(Ar)
If Cel Like Ar(i) Then Cel.Offset(0, 10) = 0: Exit For
Next
Next
End Sub
Option Explicit
Option Compare Text
Sub Word_Zero()
Dim Cel As Range, i&, Ar
Ar = Array("*CRATE*", "*WOODEN BOX*", "*RACK*", "*PLASTIC BAG*")
For Each Cel In Range("S2", Cells(Rows.Count, "S").End(xlUp))
For i = 0 To UBound(Ar)
If Cel Like Ar(i) Then Cel.Offset(1, 10) = 0: Exit For
Next
Next
End Sub
Надо было сразу показать, что и где должно быть. ...Тем более, что "отступ" - это немного из другой оперы...