Dynamic pivot table

[BartD]

Hi excel gurus,

I am currently trying to make a pivot pivot tables with dynamic range, but it is not really working.
I have used the code below for one pivot table, wich worked perfectly, but when i use it again for another pivot table it does create a new sheet, but it does not create the pivot table.

Please help me out and thanks in advance!

Gr,
Bart


Sub Urgency()


'Create pivot
'Declare Variables


On Error Resume Next
Application.DisplayAlerts = False
Worksheets("Entity").Delete
Sheets.Add Before:=ActiveSheet
ActiveSheet.Name = "Entity"
Application.DisplayAlerts = True
Set PSheet = Worksheets("Entity")
Set DSheet = Worksheets("Demand")


'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:="EntityPivotTable")


'Insert Blank Pivot Table
Set PTable = PCache.CreatePivotTable _
(TableDestination:=PSheet.Cells(1, 1), TableName:="EntityPivotTable")
End Sub

[Bob Phillips]

Is it because you are trying to use the same name for the pivot?

[BartD]

Thanks for the reply!
No i have changed all the names, ive also tried to delete the 'declare variables' part once. Ive also tried it by changing the variables from 'Psheet' to 'PPsheet' and so on in case i can't have doubles or something. Keep in mind im still a bit new to VBA so perhaps im just making a beginners mistake

[BartD]

Bump