Automatizar formulas

Prueba:

ActiveCell.Formula = "=COUNTIF(D$2:D$201,Q$1)"

José Luis
Guns And Roses


"Luis" escribió en el mensaje
news:281b901c46388$090103a0$
Hola a todos/as.

Quiero crear una macro con la función:
"=CONTAR.SI(D$2:D$201;Q$1).

Lo que hago es gravar una macro, y después voy a ver el
codigo que ha generado y es el siguiente:

Sub Borrar()
'
' Borrar Macro
' Macro grabada el 06/07/2004 por lbm
'

'
ActiveCell.FormulaR1C1 = "=COUNTIF(R2C[-13]:R201C[-
13],R1C)"
Range("Q3").Select
End Sub

Como veis, la formula no se parece en nada a la original y
si modifico el codigo con la original, no funciona.
¿Porque?

Un saludo.