Pivot Table Macro - Debug Error: Created in 2016 and works, does not work in Excel 2013

Good Morning Friends,

I created a Macro that works great on my PC using Excel 2016, but will not work on my co-workers PC since she only has Excel 2013. I realize that it is due to the Pivot table version, which I updated to "5" per the version list I found (it was previously 6). Unfortunately the debug error is still populating:

"Run-time error '1004':
Application-defined or object-defined error"


Here is the pivot table portion of the macro as it is now, with the only change made to the version. I'm guessing I'm missing additional steps and would appreciate some guidance

Formula:

 Range("A1").Select

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

        "Detail!R1C1:R" & Last_Row & "C13", Version:=5).CreatePivotTable TableDestination:= _

        "Summary!R1C1", TableName:="PivotTable2", DefaultVersion:=5

    Sheets("Summary").Select

    Cells(1, 1).Select

    ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _

        "PivotTable2").PivotFields("Entity"), "Count of Entity", xlCount

    ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _

        "PivotTable2").PivotFields("Amount"), "Sum of Amount", xlSum

    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Payment Method")

        .Orientation = xlRowField

        .Position = 1

    End With

    ActiveSheet.PivotTables("PivotTable2").CompactLayoutRowHeader = _

        "Payment Method"

    Range("B1").Select

    ActiveSheet.PivotTables("PivotTable2").DataPivotField.PivotItems( _

        "Count of Entity").Caption = "# of Payments"

    Range("C1").Select

    ActiveSheet.PivotTables("PivotTable2").DataPivotField.PivotItems( _

        "Sum of Amount").Caption = "Total Amount"

Thank you!!

Hi There,

The error highlights this portion:

Formula:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _



        "Detail!R1C1:R" & Last_Row & "C13", Version:=5).CreatePivotTable TableDestination:= _



        "Summary!R1C1", TableName:="PivotTable2", DefaultVersion:=5

The last row is set like this:

Formula:

Dim Last_Row As Long

    Last_Row = Range("A" & Rows.Count).End(xlUp).Row

    Sheets("Summary").Select

    Range("A1").Select

And the value in the last row of A is 984, formatted as general. The macro works perfectly in Excel 2016 -- the issue is in 2013.

I'm so sorry, here is a screen shot: Locals Window.PNG