Sounds like you need this;
Sub aa()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
If LR > 1 Then
Range("B2:B" & LR).FormulaR1C1 = "=VLOOKUP(,,,,,,,,,,,,,)"
End If
End Sub
Replace this --> "=VLOOKUP(,,,,,,,,,,,,,)" with your lookup formula. Insert your formula BETWEEN the quote marks.
Record your formula with the macro recorder, then copy the R1C1 style formula into the area I described.
Give my sincere apologies to that poor excel user who will no longer be able to take a coffee break while the old looping code runs
Bookmarks