Ubicación de tabla dinámica

Hola, Javier !

... tabla dinamica ... codigo cambio el origen de datos [...]
... problema ... cambio lo hago a traves del tablewizard
... si la tabla ... no tiene el enfoque ... lo que hace es crear otra tabla.
¿... "forzar" a que el enfoque y la tabla ... activa sea una en concreto para que ... no me provoque errores?

si 'interpreto' bien [al parecer] 'solo' quieres presentar el asistente de TD's y modificar 'inter-actuando' [???]
==> el metodo 'PivotTableWizard'... => CREA una TD [nueva] => NO 'presenta' el asistente :((
[en este caso] se necesita 'activar' el rango [de la TD 'en concreto'] y 'mostrar' el [dialogo del] asistente de TD's
el siguiente ejemplo 'supone' que tienes activa una seleccion [de varias celdas] y quieres -despues- 'regresar' ahi...
Sub Modificar_TD()
Dim Volver_A As String, Activa As String
Volver_A = Selection.Address
Activa = ActiveCell.Address
ActiveSheet.PivotTables(1).TableRange1.Activate
Application.Dialogs(xlDialogPivotTableWizard).Show
Range(Volver_A).Activate
Range(Activa).Activate
End Sub

si lo que quieres es modificar SIN 'inter-actuar' [el asistente NO es 'necesario']...
puedes utilizar las propiedades y metodos de un objeto PivotTable [en concreto] 'directamente' [en el codigo]

saludos,
Héctor.