Spaltensumme mit VBA

das nachfolgende Makro berechnet die Summe der Spalte B.
Ich möchte die Summe der Spalten B:E. Wie lautet das Makro?

Sub Summe()
Dim i As Range
Set i = Cells(Rows.Count, 2).End(xlUp)
With i.Offset(1, 0)
.Formula = "=sum(B4:B" & i.Row & ")"
End With
End Sub

Vielen Dank.

Grüße