Быстрый поиск с заменой

Sub kos20()
Dim x
  columns(1).copy columns(2)
  For Each x In Range("H1:H3").Value 'массив искомых слов в H1:H3
                                     'массив текста в 1 столбце, массив результатов во 2 столбце
    Columns(2).Replace What:="*" & x & "*", Replacement:=x, _
        LookAt:=xlWhole, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False
  Next
End Sub