lLastRow = Cells(Rows.Count,2).End(xlUp).Row

Public Sub test()
Dim rng1 As Range

With ActiveSheet
Set rng1 = .Range("A3:O3").Find("") 'замените на свой  диапазон
'Debug.Print rng1.Address
End With
End Sub

c1_ = Cells(3, Columns.Count).End(xlToLeft).Column + 1

Range("B3").End(xlToRight).column

Sub Макрос7()
    Dim a, b, c, d, e, iLastrow As Long, i As Long, ii As Long
   
    '1. данные в два массива
    With Лист2    'используется кодовое имя
        iLastrow = .Cells(Rows.Count, 3).End(xlUp).Row
        a = Range(.[c3], .Range("C" & iLastrow)).Value
    End With

    With Лист3    'используется кодовое имя
        iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row
        b = Range(.[k19], .Range("C" & iLastrow)).Value
    End With

    '2.пустой массив для результата
    ReDim c(1 To UBound(a), 1 To 9)

    With CreateObject("Scripting.Dictionary")
    
        '3.в словарь уникальные и номер строки из массива
        For i = 1 To UBound(b)
            .Item(b(i, 1)) = i
        Next

        '4.по словарю из массива b в массив c
        For i = 1 To UBound(a)
            If .exists(a(i, 1)) Then
                c(i, 1) = b(.Item(a(i, 1)), 9)
            End If
        Next
    End With

    '5. выгрузка всего массива
    With Лист2    'используется кодовое имя
        .[K3].Resize(UBound(c), 1) = c
        .Activate
    End With
End Sub

iLastrow = .Cells(Rows.Count, 3).End(xlUp).Row
        a = Range(.[c3], .Range("C" & iLastrow)).Value