Como puedo hacer que autosume hacia abajo

No sé si se podrá hacer sin código. Usándolo, podría ser algo como:

Sub AutoSumaHaciaAbajo()
If Not IsNumeric(ActiveCell.Offset(1)) Or ActiveCell.Offset(1) = "" Then Exit Sub
ActiveCell.Formula = "=SUM(" & Range(ActiveCell.Offset(1), ActiveCell.Offset(ActiveCell.Offset(1).End(xlDown))).Address & ")"
End Sub

El código anterior pondría la fórmula de suma en la celda activa, con las referencias absolutas en el rango a sumar. Si necesitaras que las referencias fueran relativas tendrías que poner:

(0,0)

después de Address

Un saludo.


Fernando Arroyo
MS MVP - Excel

"LUDICO" escribió en el mensaje news:07dd01c52f17$e233b540$

Por favor como puedo hacer para que autosume unas celdas
hacia abajo, normalmente solo suma hacia arriba o a la
derecha