Lo que tienes que haces dar click a la tecla ALT+F11
ahora deberás dar doble click sobre la hoja que tienes la tabla dinámica, para mi caso es gerencia y deberás copiar el texto, tener las opciones del titulo, cambiar el nombre de la tabla para mi caso es gerencia, guardar y cerrar.
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("Gerencia").PivotCache.Refresh
End Sub
Si gusta yo puedo ayudarte, solo escríbeme