Pivotproblemer - fejler ved oprettelse af tabellen via VBA

Et udpluk af min kode ser ud som følger:


Sub Makro_test()

    Dim WSD As Worksheet
    Dim PTCache As PivotCache
    Dim PT As PivotTable
    Dim PRange As Range
    Dim FinalRow As Long
    Dim WSR As Worksheet
    Set WSD = Worksheets("Pivot1")
    Set WSR = Worksheets("Sheet1")



    FinalRow = WSR.Cells(Application.Rows.Count, 1).End(xlUp).Row
    FinalCol = WSR.Cells(1, Application.Columns.Count).End(xlToLeft).Column
    Set PRange = WSR.Cells(1, 1).Resize(FinalRow, FinalCol)
    Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange.Address)

   
    Set PT = PTCache.CreatePivotTable(TableDestination:=WSD.Cells(1, 1), TableName:="PivotTable1")


End Sub

jeg får følgende fejl i sidste linje:

Method *CreatePivotTable' of object 'PivotCache' failed.

hvad kan være årsagen, og hvad er løsningen?