Требуется организовать поиск Номеров из столбца

'Public Type myVar
    Public vrem
    Public uah
'End Type
 
Sub Pusk()
Const J = 11 - 1  'номер столбца J
'Dim Z as myVar
 
    Do                 'цикл перебора нужных номеров
        i = i + 1
        Nomer = Cells(i, J).Value2
        If Nomer Then
            Nayti (Nomer)   'вызов функции поиска
            Cells(i, J + 1).Value2 = vrem   'запись времени в столбец К
            Cells(i, J + 2).Value2 = uah    'запись стоимости в столбец L
            vrem = 0                        'глобальные переменные. надо обнулить
            uah = 0                         '  перед следующим циклом
        Else
            Exit Do                         'выход из цикла если ячейка пустая
        End If
        'Debug.Print Nomer
    Loop
End Sub
 
 
Function Nayti(Optional ByVal Nomer As String = "")
Const F = 7 - 1
'Dim Z as myVar
 
    Do                'цикл поиска в НЕнужных номерах
        i = i + 1
        If Not IsEmpty(Cells(i, F).Value2) Then    'последующие текстовые функции не работают с Empty
            g = Cells(i, F).Value2
            y = Mid(RTrim(g), Len(g) - (4 - 1), 4) 'обрезаем до последних четырех символов
        End If
        If y Then           'пока y не пустой...
            If y = Nomer Then
                vrem = vrem + Cells(i, F + 1).Value2   'это математика
                uah = uah + Cells(i, F + 1).Value2 * Cells(i, F + 2).Value2
            End If
        Else
            'Nayti = 1
            Exit Function    '...если y пустой, возвращаемся в Start()
        End If
        y = 0       ' если не обнулить y то цикл будет безконечным,
                    'так как новые значения ему не присваиваются - в ячейках Empty,
                    'а у нас на него проверка
    Loop
End Function