Dim PivCachA As PivotCache
Dim PivTableA As PivotTable
Dim PivFielA As PivotField
Dim R1
Call Start
WsC.Cells.ClearContents
Set PivCachA = WbA.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="AgingList", Version:=5)
Set PivTableA = PivCachA.CreatePivotTable(TableDestination:=WsC.Range("A1"), TableName:="Aging", DefaultVersion:=5)
With PivTableA
.PivotFields("Company Code").Orientation = xlPageField
.PivotFields("Company Code").Position = 1
.PivotFields("Customer Code").Orientation = xlRowField
.PivotFields("Customer Code").Position = 1
.PivotFields("Customer Name").Orientation = xlRowField
.PivotFields("Customer Name").Position = 2
With .PivotFields("Duration")
.Orientation = xlColumnField
.Position = 1
.PivotItems("Undue").Position = 1
.PivotItems("1-30D").Position = 2
.PivotItems("31-60D").Position = 3
.PivotItems("61-90D").Position = 4
.PivotItems("91-180D").Position = 5
.PivotItems("181-365D").Position = 6
.PivotItems(">365D").Position = 7
End With
.AddDataField .PivotFields("Amount(USD)"), "Amount(USD) ", xlSum
.RowAxisLayout xlTabularRow
.ColumnGrand = False
For Each PivFielA In .PivotFields
For R1 = 1 To UBound(PivFielA.Subtotals)
PivFielA.Subtotals(R1) = False
Next R1
Next PivFielA
.PivotFields("Company Code").ClearAllFilters
.PivotFields("Company Code").CurrentPage = "AU10"
End With