Visual Basic para Aplicaciones - URGENTE: SUMAR EN EXCEL

Hola buenas:
Soy novato y quiero ayuda en lo siguiente:

Quisiera que me indicárais como puedo sumar en excel todas las celdas que
hay hacia arriba de una en la que está el cursor. Independientemente de la
cantidad de filas que haya, pues es necesario que eso sea variable.

Es urgente. Muchas gracias

Estimado joaquin, para sumar rangos de celdas se usa lo que se llama funcion que se aplica de la siguiente forma:

=SUMA(celda inicial:celda fina)

de esta forma al cambiar un valor en cualquier celda que se encuentre arriba de la formula y que se encuentre incluida en ella afectara de manera inmediata en el resultado.

Saludos.

Lino, gracias por tu ayuda, pero lo que yo quiero saber es como sumar las celdas que haya arriba hasta la fila 1. Independientemente de el numero de filas que haya.
Supongo que esto se tendrá que hacer con algo de código, como este:

ActiveCell.FormulaR1C1 = "=SUM(R[-58]C:R[-1]C)"

Pero donde -58 y -1 tendra que poner algo similar a ARRIBA, UP o algo así.

No se mucho te Visual .
NECESITO AYUDA URGENTEMENTE.
GRACIAS

porqué no pruebas esto

Public Sub sumar()
mirango = ActiveCell.Address
ActiveCell.Value = Range(mirango).End(xlUp)
End Sub

la celda activa debe ser donde irá la suma

Esa opción sólo me suma la primera celda. Gracias de todos modos.

Mil discuplas joaquin:
ahora si

Sub Suma()
Dim mirango As String
Dim rngsuma As String
mirango = ActiveCell.Address
rngsuma = Range(Range(mirango).Offset(-1, 0), Range(mirango).Offset(-1, 0).End(xlUp)).Address
ActiveCell.Formula = "=sum(" & rngsuma & ")"
End Sub

Muchas garcia Leonel. PERFECTO