Hallo Lucas,
hast du schon mal an eine While-Schleife gedacht?
In VBA-WORD2013 habe ich es so gelöst um nacht Überschriften der 1ten Ebene zu suchen und diese zu zählen.
sollte beim Durchsuchen deiner Range auch so gehen.

Sub Kapitel_zaehlen()

'Variablendeklaration
Dim Kapitel_gesamt        As Integer

'Variablen vorbelegen
aktuelles_Kapitel = 0                                                   'Kapitelanzahl initialisieren

'##########################################################################
'#Ermittlung der im Dokument enthaltenen Kapitel (Überschrift 1ster Ebene)#
'##########################################################################


'vorbereiten der Suchoperation
ActiveDocument.Range(0, 0).Select                                       'Curser auf den Dokumentenanfang setzen
Selection.Find.ClearFormatting                                          'entfernen von Text- und Absatzformatierung aus Suchoperation
Selection.Find.Style = ActiveDocument.Styles("Überschrift 1")           'Suchattribut festlegen auf die Überschriften der "Ebene 1"

'Eigenschaften für Suche festlegen
With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True                                                     'Suchrichtung von Dokumentanfang --> Dokumentende (wenn forward=true)
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    
End With

Selection.Find.Execute                                                  'Suche nach nächster Überschrift der "Ebene 1" ausführen

'Schleife zum selektieren von Überschriften der "Ebene 1"
While Selection.Find.Found
    
    aktuelles_Kapitel = aktuelles_Kapitel + 1                           'Anzahl gefundener Kapitel inkrementieren
    Selection.Find.Execute                                              'Suche nach nächster Überschrift der "Ebene 1" ausführen
    
Wend                                                                    'Sprungmarke While-Schleife

Selection.Collapse                                                      'Selektion Aufheben
GI_Kapitel_gesamt_in_WORD = aktuelles_Kapitel                           'kopieren der gezählten Kapitel

End Sub

Wie gesagt, es war WORD. Musst es noch auf dein Excel anpassen.

Gruß
Andreas