¿Cómo borrar todos los filtros en una tabla dinámica usando VBA?

Para borrar todos los filtros en una tabla dinámica usando VBA, puedes utilizar el método `ClearAllFilters` del objeto `PivotTable`. A continuación, te muestro un ejemplo de cómo hacerlo:

Sub BorrarFiltrosTablaDinamica()
    Dim ws As Worksheet
    Dim pt As PivotTable
    
    ' Cambia "Hoja1" por el nombre de tu hoja de cálculo
    Set ws = ThisWorkbook.Sheets("Hoja1")
    
    ' Cambia "TablaDinámica1" por el nombre de tu tabla dinámica
    Set pt = ws.PivotTables("TablaDinámica1")
    
    ' Borra todos los filtros de la tabla dinámica
    pt.ClearAllFilters
End Sub

Abre el Editor de VBA presionando `ALT + F11`.
Inserta un nuevo módulo desde el menú `Insertar` > `Módulo`.
Copia y pega el siguiente código en el módulo:
Asegúrate de cambiar `»Hoja1″` y `»TablaDinámica1″` por los nombres correspondientes de tu hoja de cálculo y tabla dinámica.
Ejecuta el código presionando `F5` o desde el menú `Ejecutar` > `Ejecutar Sub/UsuarioForm`.

Este código buscará la tabla dinámica especificada y eliminará todos los filtros aplicados. Asegúrate de ajustar los nombres a los que estás utilizando en tu libro de Excel antes de ejecutar el script.