Macro que sume valores de celdas de columna

Buenas noches... Posiblemente este código te funcione al pelo, con las
instrucciones que pides que se hagan... Espero le sirva!

Sub SumarValores()

Dim fila As Integer
Dim columna As Integer
Dim rango As Range
Dim suma As Long

fila = ActiveCell.Row
columna = ActiveCell.Column

Set rango = Range(Cells(6, columna), Cells(fila - 1, columna))
suma = Application.WorksheetFunction.Sum(rango)

ActiveCell.Value = suma

End Sub

No olvide guardarlo en un libro habilitado para macros...
Mi E-mail: en caso de que necesites ayuda con este
problema.