Macro para sumar valores de columna rango variable

Creo que esto ya lo habia puesto es un foro anterior... Pero por si las dudas,
lo pongo nuevamente...

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