Per VBA Summierungen einfügen?

Ich stehe vor folgendem Problem und wollte mal in die Runde fragen, ob einem von euch eine einfache Lösung dazu einfällt.

Für diverse Reports baue ich SAP BW Auszüge so um, dass sie den Anforderungen der Empfänger entsprechen. Eines der Probleme ist, dass diverse Summierungen nicht passen und im SAP nicht angepasst werden darf, da das seinen Sinn für andere Anwendungen hat.

Da es manuell aufwendig ist, die Summierungen einzuziehen, bin ich auf der Suche nach Arbeitshilfen (oder „Krücken“)

Hier mal ein Beispiel:

Jede Gesamtsumme in Spalte B hat 1 Zeichen, die erste Untersumme 2 Zeichen, die zweite Untersumme 3 Zeichen, usw. Das ganze geht dann bis 6 Zeichen (letzte Ebene). So etwas soll dann bei dem ganzen Spiel herauskommen:


A B C D
1 1 =Summe(C2;C6) =Summe(D2;D6)
2 2 =Summe(C3:C5) =Summe(D35)
3 3 100 80
4 3 120 110
5 3 80 70
6 2 =Summe(C7:C8) =Summe(D78)
7 3 50 60
8 3 70 90
9 1 =Summe(C10:C11) =Summe(D1011)
10 2 130 120
11 2 110 115
12 1 =Summe(C13,C14) =Summe(D13,D14)
13 2 85 80
14 2 180 160

Theoretische Lösungen gibt es dazu bestimmt eine Menge. Bezieht man meinen VBA Kenntnisstand mit ein, sieht es dann nicht mehr so rosig aus. Die Frage ist nun, ob es eine einfache VBA Anweisung gibt? Ist der Gedankengang in die folgende Richtung zielführend? Wie müsste man die Bereiche der Summewenn Funktion definieren?

Definiere Variable x= 1,…,5

Schleife von 1-5
Wenn Spalte B:B=x füge Summewenn(x+1; Keine Ahnung; Keine Ahnung) in die Zelle ein, die einen Wert neben dem gefundenen steht.
Beende Schleife

Also dann, vielen Dank für hilfreiche Ideen.