A列の2行目から空白行の前までのセルの値を合計します。
Endプロパティで空白行の前のセル行位置を取得して、変数BeforePosに代入します。空白行に、SUM関数と文字列と変数を組み合わせて、A列の2行目から空白行の前のセルまでの値を合計する文字列式をセットします。
Sub Sample()
Dim BeforePos As Long
BeforePos = Range("A2").End(xlDown).Row
Cells(BeforePos + 1, 1).Formula = "=SUM(A2:A" & BeforePos & ")"
End Sub