Using Excel2003, I have copyied and modified the following code which
essentially should fill the value of VLOOKUP(E2,AgeGroup,2) in cells
F2:F64500 but I just
Cannot seem to get it right. Would really appreciate assistance. Have no VBA
knowledge.

Sub AgeGroup()
Dim i As Long
Dim j As Long

Application.Goto Reference:="R2C6"
For j = 6 To 6 Step 1
For i = 2 To 64501 Step 1
Cells(i, j).Resize(1).FormulaR1C1 = _
Evaluate("VLOOKUP(RC[-1],AgeGroup,2)")


Next i
Next j

End Sub

Thank you
--
Robert