Sumar columnas

Bueno tienes que hacer mucho por esto je je ya que pues se me vino una solución pero con muchos macros checala y pues sirve pero son varios macros
Bueno para sumas la primera columna A1-A16:
Esta solución de va a sumar dependiendo donde lo pongas así la pongas en la A500
Te va a sumar de la 1 a la 500:
ActiveCell.FormulaR1C1 = "=SUM(R1C1:R[-1]C)"
te debe de quedar...
Sub Macro1()
ActiveCell.FormulaR1C1 = "=SUM(R1C1:R[-1]C)"
End Sub
Donde en excel lo debes de jalar en la celda que corresponde a la letra sumada en este caso An(n es el numero que quieras que sume el macro) presiona el metacomando ALT+F8 y jalas el macro correspondiente!
Asi para Todos!!!!!
Donde:
 R1 es = a Rango 1(Fila1(A1))
 C1 es = a Rango 1(Columna1(A1))
Para B1-Bn(donde n = a cualquier numero 1,2,........n+1)
ActiveCell.FormulaR1C1 = "=SUM(R1C2:R[-1]C)"
Para C1-Cn(donde n = a cualquier numero 1,2,........n+1)
ActiveCell.FormulaR1C1 = "=SUM(R1C3:R[-1]C)"
Ahora para sumar las filas(obviamente horizantalmente)  es lo sig...
empezando desde la A1+B1+C1+..........+IV1
es el sig
ActiveCell.FormulaR1C1 = "=SUM(R1C1:RC[-1])"
para la fila 2
es: ActiveCell.FormulaR1C1 = "=SUM(R2C1:RC[-1])"
y asi sucesivamente checalo espero que te halla sido de ayuda!!!!!
Bye y see ya!!!!!