Creación de Tablas Dinámicas con VBA

• On Error Resume Next junto con el cambio de DisplayAlerts y .Delete es un patrón seguro de "eliminar si existe": eliminar una hoja que no existe normalmente generaría un error y detendría la macro, pero On Error Resume Next le indica a VBA que continúe silenciosamente ante ese error específico; DisplayAlerts = False suprime la ventana emergente de confirmación de Excel "¿Está seguro de que desea eliminar esta hoja?";
• On Error GoTo 0 inmediatamente después restablece la notificación normal de errores — dejar On Error Resume Next activo durante el resto del Sub ocultaría silenciosamente cualquier error posterior no relacionado, lo cual es una trampa que conviene evitar;
• ThisWorkbook.PivotCaches.Create toma una instantánea de los datos de la tabla — el PivotCache, no la propia tabla dinámica — que es el objeto a partir del cual realmente se construye cada tabla dinámica en segundo plano;
• pc.CreatePivotTable convierte esa instantánea en una tabla dinámica visible, ubicada a partir de la celda A3 en la nueva hoja Pivot y con el nombre ptProfitByRegion para que el código posterior (como RefreshTable) pueda encontrarla por nombre;
• PivotFields("Region").Orientation = xlRowField y la línea de Month justo debajo son el equivalente en código a arrastrar Region al cuadro de Filas y Month al cuadro de Columnas en la lista de campos;
• AddDataField es lo que llena el área de Valores — el segundo argumento ("Sum of Profit") es solo la etiqueta que Excel muestra como encabezado de columna, y xlSum le indica que sume los valores en lugar de promediarlos o contarlos.

Aquí tienes el código para agregar una sexta región como una nueva fila de marzo en tblReports, usando ListRows.Add en lugar de escribirla manualmente:

Sub AddSixthRegion()
    Dim tbl As ListObject
    Dim newRow As ListRow

    Set tbl = ThisWorkbook.Worksheets("Reports").ListObjects("tblReports")
    Set newRow = tbl.ListRows.Add

    newRow.Range(1, 1).Value = "March"        ' Month
    newRow.Range(1, 2).Value = "Southwest"    ' Region
    newRow.Range(1, 3).Value = 41500          ' Sales
    newRow.Range(1, 4).Value = 28200          ' Expenses
    newRow.Range(1, 5).Value = 13300          ' Profit
    newRow.Range(1, 6).Value = 39000          ' Target
End Sub

Ejecuta esto una vez y luego ejecuta la Sub RefreshProfitPivot de antes — la tabla dinámica ahora debería mostrar "Southwest" como una nueva fila junto a North, South, East, West y Central, sin que hayas modificado en absoluto la macro que construye la tabla dinámica.

1. Ejecutar BuildProfitPivot tal cual

• Copia la Sub exactamente como está escrita en el capítulo en tu módulo y ejecútala una vez.
• Revisa el Explorador de Proyectos o las pestañas de tu hoja — debería aparecer una nueva hoja llamada literalmente "Pivot", con Región listada en las filas y Mes distribuido en las columnas, sumando el Beneficio.

2. Agregar una sexta región y solo actualizar

• Escribe la nueva fila directamente en la hoja de cálculo (no mediante código) — ve al final de tblReports y agrega una fila de marzo para una región inventada, por ejemplo "Southwest".
• No vuelvas a ejecutar BuildProfitPivot — eso eliminaría y reconstruiría toda la hoja Pivot desde cero, lo que va en contra del objetivo de este ejercicio.
• En su lugar, ejecuta solo la instrucción de una línea RefreshTable del capítulo — necesitarás hacer referencia a la tabla dinámica existente por nombre, de la misma manera que el ejemplo de actualización del capítulo.

3. Intercambiar campos y cambiar el valor resumido

• Debes cambiar tres líneas dentro del bloque With pt: qué campo es xlRowField, cuál es xlColumnField y a qué campo apunta AddDataField.
• Da a esta versión modificada un nombre de Sub diferente y un TableName diferente — reutilizar los mismos nombres que el original provocaría un error o sobrescribiría silenciosamente la primera tabla dinámica.
• La etiqueta pasada a AddDataField (el segundo argumento, como "Sum of Profit") es solo texto de visualización — actualízala para que coincida con lo que realmente estás resumiendo ahora.

Punto 2 — después de agregar manualmente la fila de la sexta región, ejecuta solo esto:

Sub RefreshProfitPivot()
    ThisWorkbook.Worksheets("Pivot").PivotTables("ptProfitByRegion").RefreshTable
End Sub

Punto 3 — una versión modificada y separada:

Sub BuildSalesPivotByMonth()
    Dim wsData As Worksheet, wsPivot As Worksheet
    Dim tbl As ListObject
    Dim pc As PivotCache
    Dim pt As PivotTable

    Set wsData = ThisWorkbook.Worksheets("Reports")
    Set tbl = wsData.ListObjects("tblReports")

    On Error Resume Next
    Application.DisplayAlerts = False
    ThisWorkbook.Worksheets("SalesPivot").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0

    Set wsPivot = ThisWorkbook.Worksheets.Add
    wsPivot.Name = "SalesPivot"

    Set pc = ThisWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, SourceData:=tbl.Range)

    Set pt = pc.CreatePivotTable( _
        TableDestination:=wsPivot.Range("A3"), _
        TableName:="ptSalesByMonth")

    With pt
        .PivotFields("Month").Orientation = xlRowField
        .PivotFields("Region").Orientation = xlColumnField
        .AddDataField .PivotFields("Sales"), "Sum of Sales", xlSum
    End With
End Sub

Ejecuta BuildSalesPivotByMonth y deberías obtener una nueva hoja "SalesPivot" con Mes en las filas, Región en las columnas y totales de Ventas en el cuerpo — la imagen reflejada de la disposición original.