Não é possível preencher automaticamente até a última linha - excel-vba, excel-2013, vba, excel

Eu estou trabalhando em um intervalo dinâmico que sempre se atualiza com os novos dados.

O problema é que eu sou incapaz de autopreencher, e também estou usando offset por isso está me dando problema sobre como usar a última linha.

Aqui está o código:

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)"

Alguém pode sugerir como corrigir isso para colocar o VLOOKUP fórmula para a última linha?

Qualquer ajuda será muito apreciada. obrigado

Respostas:

Você precisa qualificar totalmente suas referências para se certificar de que todas as Range e Rows aplicar a WB3.Worksheets("sheet1"). Experimente o código abaixo:

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