Creating Table From Show Detail Method

Recently our IBS provider change something in their data. As a result after the export I can no longer use

HTML Code:
Set PTCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=Range("A1").CurrentRegion)

I had to change the SourceData to:

HTML Code:
Set PRange = WSD.Cells(1, 1).Resize(FinalRow, FinalCol)
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:= _
xlDatabase, SourceData:=PRange.Address)

Since I have done this when I get to this statement

HTML Code:
Cells(FinalRow - 1, FinalColumn).ShowDetail = True

It no longer creates "Table1". Which sends a Subscript out of Range error on this statement

HTML Code:
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=10, Criteria1:= _
">0", Operator:=xlAnd
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=12, Criteria1:= _
"