Macro suma con rango variable

Prueba el siguiente código:
Sub sumRango()
    Dim cellIni$, cellFin$, varSuma
    cellIni = "C2" 'Esta celda corresponde a la primera fila de tu tabla de valores
    Range(cellIni). Select 'Nos posiscionamos en la primera fila de valores
    Do
    If IsEmpty(ActiveCell) = False Then
    ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    cellFin = ActiveCell.Offset(-1, 0).Address 'Localizamos la ultima fila de valores de la tabla
    varSuma = Range(cellIni, cellFin) 'Asignamos el rango a sumar
    With ActiveCell.Offset(1, 0) 'Efectuamos la suma y le damos un poco de formato a la celda
        .Value = Application.WorksheetFunction.Sum(varSuma)
        .Font.Bold = True
        .Font.Size = 12
    End With
End Sub
Solo cambia tu referencia a la celda inicial, he usado la celda C2.
P.D. Si todo ha quedado resuelto no olvides finalizar tu pregunta.

Realice el comando que recomendás pero la macro se para en:
    varSuma = Range(cellIni, cellFin)
El texto completo es:
    Dim cellIni$, cellFin$, varSuma
    cellIni = ActiveCell.Offset(-1, 0).Select
    Do
    If IsEmpty(ActiveCell) = False Then
    ActiveCell.Offset(-1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    cellFin = ActiveCell.Offset(1, 0).Address
    varSuma = Range(cellIni, cellFin)
    With ActiveCell.Offset(1, 0)
        .Value = Application.WorksheetFunction.Sum(varSuma)
        .Font.Bold = True
        .Font.Size = 12
    End With
¿Qué este mal?

Mandame por favor el libro donde tienes el código o un ejemplo a [email protected]
Por cierto, ¿qué version de XL usas? ¿Español o ingles?

Envío el archivo desde mi hotmail, [email protected]. Gracias, Ramiro.