Я пытаюсь написать макрос, который возвращает несколько значений

Question

Получение ошибки в этой строке

Finalrow = Cells(Row.Count, 1).End(X1UP).Row

Ошибка

Требуется объект, ошибка времени выполнения 424.

Ниже приведен код

Sub MyVlookup()
    Dim r As Long, C As Long, Col_index As Long

    Finalrow = Cells(Row.Count, 1).End(X1UP).Row
    Col_index = 2

    For I = 2 To Finalrow
        For C = 2 To 4
            Cells(I, C).Value = Application.VLookup(Cells(I, 2), Range("B2:G2"), Col_index, False)
            Col_index = Col_index + 1
        Next C
    Next I
End Sub

Answer 1

 Finalrow = Cells(Rows.Count, 1).End(X1UP).Row

Ошибка на X1UP, я вижу, что вы пытались сделать, но на самом деле XlUp, поэтому L, а не 1 :) Должно работать с

 Finalrow = Cells(Rows.Count, 1).End(XlUp).Row