Ya logre resolver el problema, simplemente olvide asignar el nombre a la tabla dinámica, les dejo el código corregido por si a alguien le puede servir Private Sub cmdrmn_Click() Dim PCache As PivotCache Dim TDinamica As PivotTable Dim WS As Worksheet...