Indsæt pivottabel via VBA

Hej,

Jeg har lavet nedenstående kode som driller lidt:

UDDRAG AF KODE:
            '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)
 
  Når jeg køre koden og prøver at stoppe den ved Set PRange, så er PRange = Nothhing. Men når jeg holder musen og LastRow og LastCol i samme linje, så viser den hhv. 28 og 37.

Hvad gør jeg forkeret.

Hele koden fremgår nedenfor.

Application.ScreenUpdating = False
     
     
'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
     
'År = Range("IDagÅr")


'CwS = Worksheets.Count + 1

        'Insert a New Blank Worksheet
           
            'Insert a New Blank Worksheet
           
            On Error Resume Next
            Application.DisplayAlerts = False
            Worksheets("Udløb_Udskrift").Delete
            Sheets.Add Before:=ActiveSheet
            ActiveSheet.Name = "Udløb_Udskrift"
            Application.DisplayAlerts = True
            Set PSheet = Worksheets("Udløb_Udskrift")
            Set DSheet = Worksheets("Data")
           
            '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(6, 2), _
            TableName:="Data1")
           
            'Insert Blank Pivot Table
            Set PTable = PCache.CreatePivotTable _
            (TableDestination:=PSheet.Cells(6, 2), TableName:="Data1")