Help on Marcos
 

I'm using a macros here and here should have 4 columns.
But sometimes when 1 column without any figure.
It will show up 1 position is missing then the whole Pivot table can't be
calculated
How could I use the Pivot table with 1 missing figure. Thanks!


ActiveSheet.PivotTables("PivotTable2").NullString = "0"
Range("E4").Select
ActiveSheet.PivotTables("PivotTable2").PivotFields ("PREV
Analsis").PivotItems( _
"New").Position = 1
ActiveSheet.PivotTables("PivotTable2").PivotFields ("PREV
Analsis").PivotItems( _
"Uplift").Position = 2
ActiveSheet.PivotTables("PivotTable2").PivotFields ("PREV
Analsis").PivotItems( _
"Flat").Position = 3
ActiveSheet.PivotTables("PivotTable2").PivotFields ("PREV
Analsis").PivotItems( _
"Reduced").Position = 4
With ActiveSheet.PivotTables("PivotTable2").PivotFields (" AE")
.PivotItems("(blank)").Visible = False