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