Limpiar mi Tabla Dinámica en Excel Macros

Esta es una opción

Sub LimpiarTabla1()
'Por.Dante Amor
    With ActiveSheet.PivotTables("Tabla dinámica1")
        .PivotFields("Producto").Orientation = xlHidden
        .PivotFields("Mes").Orientation = xlHidden
        .PivotFields("Departamento").Orientation = xlHidden
        .PivotFields("Promedio de ISRed").Orientation = xlHidden
    End With
End Sub

Esta es otra opción

Sub LimpiarTabla2()
'Por.Dante Amor
    campos = Array("Producto", "Mes", "Departamento", "Promedio de ISRed")
    For i = LBound(campos) To UBound(campos)
        ActiveSheet.PivotTables("Tabla dinámica1").PivotFields(campos(i)).Orientation = xlHidden
    Next
End Sub

Solamente tienes que poner en "array" los campos que quieres limpiar.

Ahora si quieres limpiar todos los campos, esta es otra opción

Sub LimpiarTabla3()
'Por.Dante Amor
    For Each campo In ActiveSheet.PivotTables("Tabla dinámica1").PivotFields
        ActiveSheet.PivotTables("Tabla dinámica1").PivotFields(campo.Name).Orientation = xlHidden
    Next
End Sub

Y por último, la opción más sencilla

Sub LimpiarTabla4()
'Por.Dante Amor
    ActiveSheet.PivotTables("Tabla dinámica1").ClearTable
End Sub

Planteo varias opciones posibles, para que escojas la que más se acomoda a tus necesidades.