Suma de celdas con VBA

[Nena69]

Hola, quiero sumar con excel un rango de celdas, por ejemplo de A1 a A12, y quiero que me muestre el resultado por ejemplo en el A20, y que al darle a un boton me lo calcule y me lo muestre en el A20,alguien sabe que código tengo que generar en VBA para poder conseguirlo??? Gracias por adelantadas.

[caesar.l]

Sub sumar
Dim i as Integer

'Inicias con un valor de cero la celda A20
range(A20)=0 'o cells(20,1)=0

For i = 1 To 12 'en dado caso que sean 12 las celdas que quieres sumar y
'considerando que tus datos solo están en la columna A
range("A20")=range("A20")+range("A" & i)
'o bien puedes utilizar la referencia de celdas
'cells(20,1)=cells(20,1)+cells(i,1)
Next i

end sub


Ahora bien, puedes utilizar en la celda A20 =SUMA(A1:A12) eso actuaría más rápido y no habría necesidad de oprimir un botón para hacer la suma, saludos