title: Two Pivot Tables in the same excel sheet
body: <p>I have created a Pivot Table in the same sheet with the source data. Now, I want to create a second Pivot Table in the same sheet with same data source, but with different printed data inside the Pivot Table (of course). I keep getting an error, as it says that Pivot Table cannot overwrite another Pivot Table. However, they way I have selected the ranges where the pivot tables are created, they dont overwrite each other. I tested manually too. Also, if I record the process it just uses exact references for the source data, which I dont want to use because the lastrow and lastcolumn change daily. Just to remind it, the macro works great for creating the first table. The second table is the issue. Below, I will provide my code as it is now. </p>
  
  <pre><code>Dim DSheet As Worksheet
  Dim PCache As PivotCache
  Dim PTable1 As PivotTable
  Dim PTable2 As PivotTable
  Dim PRange As Range
  
  Application.DisplayAlerts = True
  Set DSheet = Worksheets("Budget_Report")
  
  Set PRange = DSheet.Range(Cells(1, 53), Cells.SpecialCells(xlCellTypeLastCell))
  
  Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange)
  Set PTable1 = PCache.CreatePivotTable(TableDestination:=DSheet.Cells(4, 1), TableName:="PivotTable1")
  Set PTable2 = PCache.CreatePivotTable(TableDestination:=DSheet.Cells(17, 2), TableName:="PivotTable2")
  
  With ActiveSheet.PivotTables("PivotTable1")
  
    With .PivotFields("T-Lane")
      .Orientation = xlRowField
      .Position = 1
      .Subtotals(1) = True
      .Subtotals(1) = False
    End With
  
    With .PivotFields("Monthly Cost FCST")
      .Orientation = xlDataField
      .Position = 1
      .Function = xlAverage
      .Caption = "Monthly Cost Forecast"
    End With
  
  End With
  
  With ActiveSheet.PivotTables("PivotTable2")
  
    With .PivotFields("Oran")
      .Orientation = xlRowField
      .Position = 1
      .Subtotals(1) = True
      .Subtotals(1) = False
    End With
  
    With .PivotFields("Monthly Cost FCST")
      .Orientation = xlDataField
      .Position = 1
      .Function = xlAverage
      .Caption = "Monthly Cost Forecast"
    End With
  
  End With
  </code></pre>