EXCEL - Suma VBA

[Laufwerk]

Hola amigos!
he grabado una marco de una suma y me da este codigo

Código:

Sub Sumas()
'
' Sumas Macro
' Macro grabada el 24/02/2009 por'

'
    Range("D4154").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[366]C)"
    Range("D4155").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("E4154").Select
End Sub

Pero lo que yo quiero es aplicar una formula del tipo =SUMA(D4155:D4158) porque me sé la fila donde empieza y donde acaba.
como podria hacerlo?

Gracias