Makro modifizieren

habe ein Makro geschrieben das man sicherlich modifizieren kann.
Kann mir jemand das Makro mit einer Schleife vereinfachen?

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
Range("C15").Select
With Selection
.Formula = "=sum(C4:C" & i.Row & ")"
End With
Range("D15").Select
With Selection
.Formula = "=sum(D4:D" & i.Row & ")"
End With
Range("E15").Select
With Selection
.Formula = "=sum(E4:E" & i.Row & ")"
End With
End Sub