Это может быть начало.Я ищу слово «Отправка» в столбце D. Когда оно найдено, я копирую значение ячейки в столбец E.
Код:
Sub FindValue()
Dim ColNum As Integer
Dim SearchWord As String
Dim lrow As Integer
ColNum = 4 'Which Column you want to search for (4 = Column D)
SearchWord = "shipping" 'Which word you want to search for
lrow = 11 'How many rows you want to search in
For i = 1 To lrow 'Loop from first row until lrow (which you define above)
ValueLookup = Cells(i, ColNum).Value
If InStr(1, ValueLookup, SearchWord, 1) Then 'Compare the value in ValueLookup against your Search Word
'When ValueLookup contain the SearchWord Then do something
Cells(i, ColNum).Offset(0, 1) = ValueLookup 'Here I just offset the found value with one column
End If
Next i
End Sub