Sub test()
Dim i&
Range("A1:C10") = Array("=ADDRESS(ROW(),COLUMN(),4)", "=ROW()*COLUMN()", "=REPT(ROW(),3)")
Range("E1:E3") = Application.Transpose(Array("A2", "A7", "A1"))
For i = 1 To 3
Cells(i, "F").FormulaR1C1 = "=VLOOKUP(RC[-1],R1C1:R10C3," & i & ",0)"
Next
[F1:F3].Font.Bold = True
[F1:F3].Interior.ColorIndex = 6
End Sub