VBA: Crear una tabla dinámica con macros para Excel.

Sin duda una de las acciones que más fallos y errores nos puede causar es emplear el asistente de grabación de macros para replicar la creación de una tabla dinámica...
Por ello, hoy veremos una forma válida para crear y configurar nuestras tablas tablas dinámicas empleando la programación VBA para Excel.

Partiremos del siguiente origen de datos ('Tabla1'), con tres campos: 'Departamento', 'Zona' e 'Importe'.

El objetivo es crear una tabla dinámica con esta forma:

Generamos nuestro código en un módulo estándar de nuestro proyecto de VB:

Sub CrearTablaDinamica()
'www.excelforo.com
Dim ws As Worksheet
Dim pc As PivotCache
Dim pt As PivotTable

'definimos la hoja destino....
Set ws = Worksheets("Hoja2")

'Creamos la memoria cahce de la TD (Pivot cache)
Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, "Tabla1")

'Ahora generamos la TD
Set pt = pc.CreatePivotTable(ws.Range("B3"))

'configuramos la estructura de la TD
With pt
    'llevamos al área de filas el campo 'Departamento'
    With .PivotFields("Departmento")
    .Orientation = xlRowField
    .Position = 1
    End With
    'llevamos al área de columnas el campo 'Zona'
    With .PivotFields("Zona")
    .Orientation = xlColumnField
    .Position = 1
    End With
    'y al área de valores el campo 'Importe'... también le damos formato...
    Set campo = .AddDataField(.PivotFields("Importe"), "Total", xlSum)
    campo.NumberFormat = "#,##0.00"
End With

End Sub

Estamos listos para ejecutar nuestra macro 'CrearTablaDinamica' y generar nuestra nueva Tabla dinámica...

El código generado con el asistente de grabación sería...

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Hoja1").Select
    Range("B9").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Tabla1", Version:=xlPivotTableVersion15).CreatePivotTable TableDestination _
        :="Hoja2!R3C2", TableName:="Tabla dinámica1", DefaultVersion:= _
        xlPivotTableVersion15
    Sheets("Hoja2").Select
    Cells(3, 2).Select
    With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Departmento")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Zona")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tabla dinámica1").AddDataField ActiveSheet.PivotTables _
        ("Tabla dinámica1").PivotFields("Importe"), "Suma de Importe", xlSum
    With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Suma de Importe")
        .NumberFormat = "#.##0,00"
    End With
End Sub

Creo que no existe duda cuál de los dos códigos es más claro (y fiable!!).