In diesem Beispiel wird das Feld "Bestelldatum" in Perioden von 10 Tagen zusammengefasst.
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Set groupRange = pvtTable.PivotFields("ORDER_DATE").DataRange
groupRange.Cells(1).Group by:=10, _
periods:=Array(False, False, False, _
True, False, False, False)