VBA Formel nur einfügen wenn Bedingung in anderer Spalte erfüllt ist

[SchL1990]

Guten Tag Community,
folgendes Problem quält mich
ich habe eine gesamtsummenzeile an oberster stelle die nur summiert wenn in spalte b ein wert steht
spalte b spiegelt das unternehmen
spalte c dann die einzelnen Abteilungen
Nun will ich pro Unternehmen eine eigene Summenzeile haben auf die die gesamtsummenzeile zugreift
Problem ist, dass nur dann in der zeile die summe gebildet werden soll, wenn auch in spalte b ein unternehmensnamen steht
Falls dies nicht der fall ist soll eine einfache eingabe von Zahlenwerten möglich sein
Die summe muss gebildet werden bis zu der zeile (-1) in der in spalte b ein neuer unternehmensname steht
Beispiel:
Gesamtsumme                                    5                   3
Aachner                                               3                  1
                         vertrieb                       1
                         forschung                   2                   1
HP                                                        2                   2
                          verkauf                      2                    2
Ich hoffe das ist halbwegs bildlich... Also gesamtsumme zieht sich nur die werte aus der zeile wo unternehmensnamen stehen
und den VBA Code um die dick markierten Summen zu bilden soll generiert werden.
ich bin damit leider heillos überfordert... ist sowas überhaupt möglich oder verlange ich das unmögliche?
mein bisheriger VBA-Code, der aber keineswegs funktioniert:
Sub SummeWenn_Makro()
Dim IntZeile As Integer
For Each Z In Z.Range("T14:T113")
If Cells(IntZeile, 2) = "" Then
Else
ActiveSheet.Range("T14").FormulaLocal = "=SUMME(T" & 15 & ":T" & 20 & ")"
End If
Next
End Sub

[maninweb]

Hallo,

sorry, so ganz folgen kann ich da nicht. Die Beispieldatei ist leider beschädigt, zumindestenswird diese bei mir so geladen.
Aber, generell, warum VBA? Du könntest vielleicht eine Excel-Formel verwenden, beispielhaft:

=SUMMENPRODUKT(($A$1:$A$1000 = "Kunde_1")*(Werte_Bereich)) mit Werte_Bereich gleiche Höhe wie A1:A1000.

Falls bei den Kunden die Zwischenräume leer sind, dann auffüllen und ggf. per Schriftfarbe verstecken.

Gruß