Как найти текстовые строки в середине поля

Question

Поиск текста в середине поля

Здравствуйте, я пытаюсь найти слова «Шина» или «Шина» или «Шина» или «Шина» в начале, середине, конце илигде-нибудь в поле, но, кажется, не может это сделать, приведенный ниже код работает, только если слово находится в начале поля

   If .Cells(K, "H").Value Like "*Tire*" Then
    J = J + 1
    .Rows(K).EntireRow.Copy Destination:=Worksheets("Tires").Range("A" & J + 1)
    .Rows(K).EntireRow.Delete
   End If

Также в строке ... Если .Cells (K, "H "). Значение, H - это столбец, который я пытаюсь найти, что это за значение K?

Благодарю всех за помощь.