For loop vlookup

Any reason you can't use it like this?

Sub amphinomos()

Dim RsRange As Range
Dim LkRange As Range

Set RsRange = Sheets(1).Range("B1:B5")
Set LkRange = Sheets(2).Range("$A$1:$B$5")

RsRange.Formula = "=VLOOKUP(A1," & LkRange.Address & ",2,0)"

End Sub