My code. Any response will only be seen by me many hours later.

Sub AgeGroup()
Range(Cells(1, 1), Cells(Rows.Count).End(xlUp)) _
.FormulaR1C1 = "=VLOOKUP(RC[4],AgeGroup,2)"
End Sub
--
Robert