vba - LastRow を使用したオートフィル

Question

Sheet1 のテーブルの Sheet2 のセル J1 で vlookup を実行しています。その後、シート 2 の列 J の最後の行まで数式を拡張したいと考えています。列 J の AutoFill 部分に問題があります。また、Sheet1 の vlookup に別の LastRow ステートメントを使用しています。

これが私が持っているものです（Sheet1から始めます）：

*SOME OTHER CODE*
LASTROW = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Select
LASTROW2 = Range("A" & Rows.Count).End(xlUp).Row
ActiveWindow.SmallScroll Down:=-51
    Range("J1").Select
Application.CutCopyMode = False
ActiveCell.FormulaLocal = "=VLOOKUP(F1,Sheet1!$F$2:$G$" & LASTROW & ",2,false)"
Selection.AutoFill Destination:=Range("J2:J" & LASTROW2)

ご協力いただきありがとうございます！