Bom dia!!

Eu não sei se entendi...

Use o método fill down

Sub AleVBA_12216()
Range("A2", Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = _
    "=SuaFormula"
End Sub

Att

Supondo que sua fórmula esteja em A1 e vc quer arrastar ela para a1 até a1000, ou a1000000.
Concordo que arrastar é para os fracos, neste caso, se eu ver alguém arrastando e esperando até chegar e passar, eu balanço a cabeça... eheheh

Eu faria o seguinte, sem VBA, que eu acho que é exagero neste caso.
1) Tecle Ctrl+G (ir para)
2) Digite A100000 e clique Ok
3) Agora usando as setas, tecle: Ctrl+Shift+Seta para cima
4) Tecla tab para garantir que a célula ativa dentro da seleção seja a célula A1, ou seja a célula com a fórmula
5) F2 e Ctrl+Enter

Concordo que parece muito, mas uma vez que vc domine a ação, vc fará tudo isso em menos de 3 segundos... E não dependerá do arrasto do mouse.
O importante é saber que usar o Ctrl+Enter enquanto edita uma célula, colocará a mesma coisa em todas as células selecionadas.

Bom dia galera,

Concordo Fernando. Também utilizo essa prática (Só que pressiono <F5>).

Qualquer coisa da o grito.
Abraço

Fernando,

era isso mesmo!!! obrigado.

vlw.