Macro determine mes y año de una celda

Tendrás que colocar en un rango auxiliar (en mi ej col K:L) una tabla con nros-nombres de meses
Luego en la col C esta fórmula:
=BUSCARV(MES(A1);$K$1:$L$12;2;FALSO)
y en col D:
=AÑO(A1)
Ahora podes arrastrar al resto de las col C y D
Sdos y no olvides finalizar la consulta

No reparé que solicitaste que sea con 1 macro... confírmame si te alcanza con las fórmulas.
Sdos
Elsa

Hola muchas gracias por la información,
Por que al momento es así como lo realizo, con fórmula y para aplicarlo en la macro tengo que hacer lo siguiente
Range("AB2").Select
'coloca la formula =año(D2)
Range("AB2").FormulaR1C1 = "=YEAR(RC[-24])"
'copia la celda
    Selection.Copy
'selecciona el rango en base a la columna C
    variable = Range("C2").End(xlDown).Offset(0, 0).Row
    Rango = ("AB2" & ":AB" & variable)
'selcciona rango y pega
    Range(Rango).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
'selcciona todo el rango con formulas
    Selection.Copy
    Range("AB2").Select
'pega solo valores.
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
De esta manera lo hago, y como tengo una base muy grande y tengo que aplicarlo varias veces me consume mucha memoria y quisiera saber como se haría agilizando con la macro directamente, es decir que escriba los datos directamente, sin tener que escribir la fórmula en la tabla y luego copiar y pegar y volver a copiar y pegar valores.
Utilizando un un For lo he visto como funciona pero no lo se aplicar.
Espero y me puedas ayudar.