列の最終行にSUM関数を挿入する

■列の最終行にSUM関数を挿入する
（例）B列に入力された数値の合計を求める

Sub test()
    Range("B2").End(xlDown).Offset(1, 0) = _
    "=SUM(" & Range(Range("B2"), Range("B2").End(xlDown)).Address(False, False) & ")"
End Sub