In diesem Beispiel wird die Gruppierung für das Feld "ORDER_DATE" aufgehoben.
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable Set groupRange = pvtTable.PivotFields("ORDER_DATE").DataRange groupRange.Cells(1).Ungroup