Office: (Office 2016) Excel-VBA Werte addieren und in nächste freie Zelle eintragen

Hallo zusammen,
ich hab ein kleines Problem und komme leider nicht wurklich voran.
Ich habe eine Datei zu einem Produkt.
Dort sind für eine bestimmtes Bestelldatum und Ausführungstag die Werte pro Kunde angegeben. Eigentlich gibt es noch viel mehr Infos in weiteren Spalten aber die sind für mein Problem nicht von Belang. Jetzt würde ich gerne die Summe der Zellen B9 bis B30 bilden und das Ergebnis in Zelle B32 schreiben.
Grundsätzlich mit 'ner Formel ganz einfach.
Mein Problem hierbei, das Layout darf ich nicht ändern und die Anzahl der Kunden können immer variieren. Wie kann ich das mit VBA hinkriegen? (Beispieldatei ist anbei)
Danke schon mal und viele Grüße
Charlotte

 

Hallo,

Code:

Sub Makro2()
    Dim rngEnde As Range
    With Range("B9")
       Set rngEnde = .End(xlDown)
       rngEnde.Offset(2).FormulaR1C1 = "=SUM(R9C:R[-2]C)"
    End With
End Sub

 

Hallo,

oder als Einzeiler:

Code:

Sub Makro2()
    Range("B9").End(xlDown).Offset(2).FormulaR1C1 = "=SUM(R9C:R[-2]C)"
End Sub

 

Perfekt! Vielen lieben Dank!!!