Set iОбозначение1 = Range("F2")

Set iКудаВходит1 = Columns("A").Find(iОбозначение1.Offset(, 2), , xlValues, xlWhole)

Set iКудаВходит2 = iКудаВходит1.Offset(, 2)

Sub NA()
Dim i As Long
Dim iLastRow As Long
Dim iКудаВходит1 As Range
Dim iКудаВходит2 As Range
Dim iОбозначение1 As Range
Dim FAdr As String
   iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
    Set iОбозначение1 = Range("F2")
      'ищем в столбце А значение из столбца Н
    Set iКудаВходит1 = Columns("A").Find(iОбозначение1.Offset(, 2), , xlValues, xlWhole)
     If Not iКудаВходит1 Is Nothing Then
        FAdr = iКудаВходит1.Address 'адрес первого вхождения
      Do
       Set iКудаВходит2 = iКудаВходит1.Offset(, 2)
       'ищем дальше по столбцу А, есть лиеще вхождение?
       Set iКудаВходит1 = Columns("A").FindNext(iКудаВходит1)
      Loop While iКудаВходит1.Address <> FAdr
     End If
End Sub