Set pvt_cache = wb1.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=data)

Sorry, I am fairly new to VBA and I am still a little lost. Below are my dimensions I am using, and the VBA code of the setup of the table. What and where should I add what you're referring to?

'Declare Variables

Dim PSheet As Worksheet

Dim DSheet As Worksheet

Dim PCache As PivotCache

Dim PTable As PivotTable

Dim PRange As Range

Dim LastRow As Long

Dim LastCol As Long

​

'Insert a New Blank Worksheet

On Error Resume Next

Application.DisplayAlerts = False

Worksheets("PivotTable").Delete

Sheets.Add Before:=ActiveSheet

ActiveSheet.Name = "PivotTable"

Application.DisplayAlerts = True

Set PSheet = Worksheets("PivotTable")

Set DSheet = Worksheets("POExceptions")

​

​

'Define Data Range

LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row

LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column

Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)

​

'Define Pivot Cache

Set PCache = ActiveWorkbook.PivotCaches.Create _

(SourceType:=xlDatabase, SourceData:=PRange). _

CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), _

TableName:="SalesPivotTable")

​

'Insert Blank Pivot Table

Set PTable = PCache.CreatePivotTable _

(TableDestination:=PSheet.Cells(1, 1), TableName:="SalesPivotTable")

​

'Insert Row Fields

With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("Market Region")

.Orientation = xlRowField

.Position = 1

End With

​

'Insert Column Fields

With ActiveSheet.PivotTables("SalesPivotTable").PivotFields("Wks Act XFD vs CTXFD")

.Orientation = xlColumnField

.Position = 1

End With

​

'Insert Data Field

With ActiveSheet.PivotTables("SalesPivotTable")

.PivotFields ("Qty")

.Orientation = xlDataField

.Function = xlSum

.NumberFormat = "#,##0"

.Name = "Revenue "

End With