VBA: Hjælp til VLookup

Hej.

Hvordan får jeg skrevet denne formel om:
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-21],AreaCode!R[-6]C[-21]:R[3]C[-20],2,FALSE)"

Opslagsværdier ligger i arket AreaCode i cellerne A2:B11, alt efter hvor mange værdier der er.
Jeg skal have den puttet ind i følgende:

For i=8 to lastrow
    Resultkolonne=21
    cells(i,Resultatkolonne).select
    Activecell.value=.......
next i

Jeg har prøvet med activecell.value=Application.WorksheetFunction.VLookup("A" & i,"AreaCode!A2:B11,2,False)
men uden held.