Suma de celdas con VBA

[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