Vlookup autofill

[afc171]

Hi guys,

I am trying to create a macro button which would autofill a vlookup code into a column

Dim lastrow As Long
lastrow = Range("A2").End(xlDown).Row

Range("B2:B" & lastrow).FormulaR1C1 = "=VLOOKUP(B2&,'Stk_Qty-LC'!A:F,5,FALSE)"

Columns("H:I").EntireColumn.AutoFit

Keeps giving me run-time error 1004 object range failed?!
Is there an easier way to do this?

 

[Fluff]

You are using FormulaR1C1, but then using a vlookup that has A1 notation instead. Either use Formula, or change the vlookup to use R1C1 notation.

 

[Fluff]

Just noticed, you also have an & after the cell reference in the formula, you will need to remove it.