Неможливо автоматично заповнити останній рядок - excel-vba, excel-2013, vba, excel

Я працюю над динамічним діапазоном, який завжди оновлюється новими даними.

Проблема в тому, що я "не в змозі автозаповнення, а також я" з використанням зсуву так його даючи мені проблеми про те, як використовувати останній рядок.

Ось код:

WB3.Worksheets("sheet1").Activate
lstRow = Range("A" & Rows.Count).End(xlUp).Row
Range (("D2:D") & lstRow)
Range(("O2:O") & lstRow).Formula = "=VLOOKUP($B2821,Sheet2!A1:BX6149,65,0)"

Чи можна запропонувати, як це виправити, щоб поставити VLOOKUP формула до останнього ряду?

Будь-яка допомога буде високо оцінена. Дякую

Відповіді:

Ви повинні повністю кваліфікувати свої посилання, щоб переконатися, що всі Range і Rows застосувати до WB3.Worksheets("sheet1"). Спробуйте код нижче:

Option Explicit

Sub Test()
Dim lstRow As Long
With WB3.Worksheets("sheet1")
lstRow = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("O2:O" & lstRow).Formula = "=VLOOKUP($B2821,Sheet2!$A$1:$BX$6149,65,0)"
End With
End Sub