(Excel) Pivot über alle Tabellenblätter

Hallo liebe Excel-Freunde!

Ich habe eine kleine Frage bzgl. Pivot Tabellen:

Ich arbeite als Praktikant in einem Produktionsbetrieb und dokumentiere täglich Störzeiten und -häufigkeiten in einer Excel Tabelle.
Jeden Tag wird ein neues (mit aktuellem Datum), aber vom Aufbau her identisches Tabellenblatt benutzt (Kopie von Vorlage).
Am Ende des Monats erstelle ich eine einseitige Übersicht, in der ich alle Ereignisse summiert aufliste (z.B.: Maschine X stand Y Mal für insgesamt Z Minuten (das ist jetzt nur ein simples Beispiel)).

Nun gibt es bei Pivot Tabellen die Option, mehrere Konsolidierungsbereiche festzulegen. Schön und gut, muss ich aber trotzdem alles manuell festlegen/hinzufügen.

Nun zu meiner Frage:

Gibt es die Möglichkeit, den Bereich der Pivot Tabelle automatisch über ALLE Tabellenblätter festzulegen, ohne das ich jedes einzelne extra hinzufügen muss?
In der Praxis wäre es also so, dass ich z.b. morgen ein neues Tabellenblatt hinzufüge, und dieses automatisch Teil der "Bilanz" ist.

Würde mich sehr über Ratschläge und Tipps freuen.

Viele Grüße,
Victorianer

Sub consolidate()
    'Worksheet hinzufügen  
    Worksheets(Worksheets.Count).Copy After:=Worksheets(Worksheets.Count)
    Worksheets(1).Select
    
    Dim sheet1 As Worksheet
    Set sheet1 = Worksheets(1)
    Dim i As Integer
    ReDim sArray(1 To 1)
    i = 1
    For f = 2 To Worksheets.Count
        ReDim Preserve sArray(1 To i)
        sArray(i) = Worksheets(f).Name & "!R1C1:R5C3"  
        i = i + 1
    Next
    sheet1.Range("A2").consolidate Sources:=(sArray), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False  
    sheet1.PivotTables("PivotTable1").RefreshTable  
End Sub