Extraer un dato en particular de una Tabla Dinámica

Estimados Expertos

Tengo un problema con una macro que estoy realizando,

Tengo los datos de la siguiente manera

/A /B /C /D

1 /Variable /feb-2014 /mar-2014 /abr-2014

2 /Agua / 217 /211 /205

3 /Fluido /430 /422 /418

La tabla dinámica resultante la tengo organizada de esta manera

/Suma de Valores

Variable / feb-2014 / mar-2014 / abr-2014

Agua / 217 /211 /205

Fluido /430 /422 /418

Lo que necesito es tomar un valor de la tabla dinámica usando GerPivotData, por ejemplo necesito el valor de Agua de mar-2014, el problema se me presenta el momento quiero hacer que mar-2014 se dinámico, me explico no solo quiero coger el valor de mar-2014 sino un valor de feb-2014 o abr-2014 el valor que yo quiera, estuve usando esta formula:

<p class="scayt-misspell" data-scayt_word="R40C2" data-scaytid="495">
<p class="scayt-misspell" data-scayt_word="R40C2" data-scaytid="495">=GetPivotData("mar-2014","Variable","Fluido")

y me sale un valor de falta un objeto.

probé escribiendo la formula en una celda de esta manera:

ActiveCell.FormulaR1C1 = "=GETPIVOTDATA(""mar-2014"",R40C2,""Variable"",""Fluido"")"

y si me de el valor del fluifo en mar-2014, pero si trato de reemplazar mar-2014 por un valor dinámico me genera un error de explesion, por ejemplo hice que tome un valor de una celda pero me sigue generando un error:

/B /

25 /mar-2014/

y = Range("B25").Value

ActiveCell.FormulaR1C1 = "=GETPIVOTDATA("y",R40C2,""Variable"",""Fluido"")"

Pero continua el error.

Por favor su ayuda con este problemita. Muchas Gracias.