Die spielt nicht ... die will nur beissen ...
...laut lach! Seit wann denn das? Hast Du Dich irgendwo angesteckt?

Hi Sludy,
weshalb solch unnötigen Klimmzüge via VBA? Oder vorhandene Daten nochmal in ein Array, Dictionary oder sonstwas laden? Und 2 Stunden für die Berechnung? Wow... in welche Galaxy schickst Du die Daten?

Mach eine intelligente Tabelle aus Deinem Datenbereich. Dann kannst Du eine Ergebniszeile hinzufügen oder in einer Zelle deiner Wahl folgende Funktion einfügen:
=TEILERGEBNIS(9;tblDaten[[#Daten];[Menge]])
Voraussetzung,tblDaten ist der Name der intelligenten Tabelle. Dann kannst Du Dir auch den Button sparen und erhältst in Nullkommanix das gefilterte Ergebnis. Optional kannst Du auch Slicer einsetzen.
Weiterer Vorteil, Du musst Dich nicht um die Erweiterung der Tabellenbereiche kümmern..
Sh. Anhang Blatt AlternativTest