Excel - Crear Tabla dinámica con formulario VBA

Dim ws As Worksheet

Set ws = Worksheets.Add(Before:=ActiveSheet)

ws.Name = "Reporte"

Set PT = ws.PivotTables.Add(PivotCache:=PTCache, _

    TableDestination:=ws.Range("A1"), TableName:="nuevo")

Dim PTCache As PivotCache

Dim PT As PivotTable

Dim ws As Worksheet

    On Error Resume Next

    Worksheets("Reporte").Delete

Set ws = Worksheets.Add(Before:=ActiveSheet)

ws.Name = "Reporte"

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

Set PTCache = ActiveWorkbook.PivotCaches.Create _

(SourceType:=xlDatabase, SourceData:=ActiveSheet.Range("a4:" & ActiveSheet.Range("a65536"). _

   End(xlUp).Address))

    '****Worksheets.Add(Before:=ActiveSheet).Name = "Reporte"

Set PT = ws.PivotTables.Add(PivotCache:=PTCache, _

   TableDestination:=ws.Range("A1"), TableName:="nuevo")

'****Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, _

    TableDestination:="Reporte!A1", TableName:="nuevo")

With PT

    .PivotFields("ÁREA").Orientation = xlColumnField

    .PivotFields("Moneda").Orientation = xlRowField

    .PivotFields("Identifier").Orientation = xlRowField

    .PivotFields("Monto").Orientation = xlDataField

    .DisplayFieldCaptions = False

End With

Unload frmhojas