Excel Fazer a soma de um intervalo que varia -VBA

[LhoSanca]

Como posso adicionar uma função de soma no final do intervalo considerando que esse intervalo sempre varia por uma outra função?

(Ps.: a soma precisaria ser abaixo da seleção como na figura)

[André_Arruda]

Sub adicionar_soma()
Dim ul As Long
Application.ScreenUpdating = False
ul = Range("C" & Rows.Count).End(xlUp).Row + 1
[c1].Select
For i = 1 To ul - 1
If ActiveCell.Offset(0, -1).Value = "soma=" Then
ActiveCell.Value = ""
ActiveCell.Offset(0, -1).Value = ""
GoTo somar
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
somar:
ul = Range("C" & Rows.Count).End(xlUp).Row + 1
Range("C" & ul).Value = Application.WorksheetFunction.Sum(Range("C1:C" & ul - 1))
Range("C" & ul).Offset(0, -1).Value = "soma="
Application.ScreenUpdating = True
End Sub

teste.xlsx

[Basole]

Segue outra opcao.

 

Sub Somar_Intervalo_Variavel()   
    With ActiveSheet
    .Range("C" & .Cells(.Rows.Count, 3).End(xlUp).Row + 1).Value = Evaluate("=SUM(C1:C" & .Cells(.Rows.Count, 3).End(xlUp).Row & ")")
    End With  
End Sub