With ActiveSheet.PivotTables("PivotTable").PivotFields("Date") .Orientation = xlRowField .Position = 1 .DataRange.Cells(1).Group Start:=True, End:=True, Periods:=Array(False, False, False, False, True, False, True) End With
Array = Seconds-->Minutes-->Hours-->Days-->Months-->Quarters-->Years