Grouped Range erkennen

Ich erstelle eine dynamische Tabelle die automatisch "gegrouped" wird. Zur Erstellung einer neuen Tabelle muss die alte vollständig gelöscht und "entgrouped" werden. Jede Gliederungsebene wird mit Range.Ungroup entfernt. Woher weiss ich wieviele Gliederungsebenen es gibt, da ein Ungroup zuviel einen Fehler auslöst. Wie kann ich überprüfen ob und wenn ja wie tief ein Range gegliedert ist oder wie kann ich den Menüpunkt Daten/Gruppierung und Gliederung/Gliederung entfernen per VBA ausführen?

Danke,
Marko