Summe mit Excel VBA

allo Wer-Weiss-Wasler.

Ich hänge bei einem VBAProjekt Projekt an folgender Stelle und hoffe dass Ihr mir weiterhelfen könnt.

In meiner Tabelle gibt es zusammengehörige Zeilen, die jeweils durch eine Leerzeile getrennt sind. Die zusammengehörigen Blöcke sind unterschiedlich groß, mal zwei Zeilen, bis zu 20Zeilen.

Mein Ziel ist jetzt in der Leeren Zeile von Spalte G bis K jeweils die Summen der Zahlen zu bilden, die oberhalb der Leerzeile stehen.

Ich habe eine Variable „Zähler“, die weiß weiviel Zeilen oberhalb zusammengerechent werden sollen.

Die Funktion müsste jetzt einfach eine Summe bilden von der aktuellen Zeilennummer -1 bis zu der akutellen Zeilennummer - „Zähler“

Als Basis habe ich die Funktion:
ActiveCell = Application.WorksheetFunction.Sum(XXXXXX)

Ich bekomme aber die Argumente in der Klammer nicht so hin dass er die Bereiche wie oben beschrieben addiert.

Ich hoffe meine Beschreibung ist halbwegs verständlich und Ihr könnt mir weiterhelfen.

Gruß
Marc

In der Zwischenzeit bin ich etwas weiter.

ich habe zwei Variablen definiert.

Bereich1 und Bereich 2 als String

Die Variablen fülle ich z.B mit: Bereich1 = „F“ & Reihe
und mit Bereich2 = „F“ & Reihe2

Die Summenfunktion sieht dann so aus:
ActiveCell.FormulaR1C1 = „=Sum(Range(Bereich1 : Bereich2))“

Wenn ich im Editor die einzelnen Variablen anklicke, kommt der richtige Inhalt, doch wenn ich in meine Excel Arbeismappe zurück gehe steht in der Zelle nur der Ausdruck #NAME?

Seht Ihr den Fehler den ich mache?

Danke schon mal.

Marc