Hola a todos:
Llevo toda la tarde dandole vueltas al tema y no doy con la solucion,
Quiero introcudir la variable A dentro de la formula del codigo.... ( he probado comillas,parentesis,simbolos de concatenacion mas comillas..... No se, creo que lo he probado todo.... Menos lo que es.)

Dim A as Integer
A=[h4]. Value

For B = 1 To A
ActiveCell. Offset(1, 0). Select
ActiveCell. Formula = "= EXTRAE(D6,& B &, 1)"
Next B

Gracias por vuestra atencion
Salvador.