Macro para sumar de 1 a n rangos variables

con la siguiente macro sumo los datos de la columna C pero la primera ves hace la suma bn pero la segunda suma toda la columna no solo los datos que faltan
Ejemplo
el primer rango da como suma 6 y es correcto pero el segundo da 19 cuando el resultado debe ser: 7 lo que hace es que suma toda la columna nuevamente no solo a partir del inicio del segundo rango, espero me puedan ayudar

A / B / C

x / y / 1
x / y / 3
x / y / 2
Espacio en blanco para mostrar resultado 1
Títulos
x / y / 2
x / y / 3
x / y / 2
Espacio en blanco para mostrar resultado 2

Sub sumRango()
Dim cellIni$, cellFin$, varSuma
cellIni = "C2" 'Esta celda corresponde a la primera fila de tu tabla de valores
Do Until IsEmpty(Activecell) And IsEmpty(Activecell.Offset(1, 0))
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(0, 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
Sum = 0
End With
Activecell.Offset(2, 0).Select
Loop
End Sub