Redefines the layout of the fields in the existing Table, apart from the data field
Sub RedefinePivotTable() Dim pvt As PivotTable
Set pvt = ActiveSheet.PivotTables(1)
pvt.AddFields RowFields:=Array("Product", "Customer"), _
ColumnFields:="State", _
PageFields:="Date" End Sub