Vlookup and autofill a dynamic range

I am trying to Vlookup and autofill a dynamic range.
My codes are as below

Sub test()

Sheets("Data").Select
Dim LastRow As Long
LastRow = Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
Range("B2:B" & LastRow).FormulaR1C1 = "= VLOOKUP(A2,Reference!A:B,2,0)"
Application.CutCopyMode = False
End Sub

the Macro runs but it returns

PBU ID
10014 #NAME?

Range("B2:B" & LastRow).FormulaR1C1 = "= VLOOKUP(A2,Reference!A:B,2,0)"

Need help here so the macro auto fills coloum B

Help Please
Sample attached

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

With six posts you should know the rules.

Regards