Excel - Macro pegar tablas de excel en power point

Buenas tardes.

Tengo un Excel que contiene diferentes tablas de datos. El Excel tiene una macro que pega las tablas en un power point en unas diapositivas determinadas. Cada vez que ese power point sufre una actualización y se añaden o se eliminan más diapositivas tengo que reajustar la macro indicándole las nuevas diapositivas donde pegar las tablas. ¿Hay alguna manera de nombrar las diapositivas y dejarlo automatizado?

Ahora mismo tengo en la macro:
Pegar tabla de la hoja 1 en la diapositiva 5.
Pegar tabla de la hoja 2 en la diapositiva 6.

Cada vez que añado o elimino diapositivas tengo que reajustarla.

Sería ideal poder decir:
Pegar tabla de la hoja 1 en la diapositiva llamada Ventas
Pegar tabla de la hoja 2 en la diapositva llamada Compras

¿Se puede? ¿Alguna sugerencia?

Gracias.

Se puede hacer. Tienes algún avance?

Hola.
La instrucción que pega en una diapositiva del power point es la siguiente:

Sub PasteSlide(rango As Variant, diapositiva As Variant, posicion As Variant)
rango.Copy
On Error Resume Next
Set shp = myPresentation.Slides(diapositiva).Shapes.PasteSpecial(ppPasteDefault)
shp.Top = posicion

End Sub

¿Cómo lo harías?

¿Alguna idea?

Hola como no logro progresar con esta idea me planteo una alternativa. Con una macro pegar en un power point (1) ciertas tablas del excel y con otra macro copiar las diapositivas de este power point (1) a continuación de otro power point (2) que es el que puede variar en el nº de diapositivas. Lo que sí tengo claro es que las diapistivas del power point (1) las pegaré a continuación de todas las diapositivas del power point (2). Resumiendo:

Necesito crear una macro que copie todas las diapositivas de una presentación1 al final de una presentación2 que tiene un nº indefinido de diapositivas. ¿Podéis ayudarme con el código?

He visto por internet que el código podría ser:


Ejemplo
En este ejemplo se cortan las diapositivas números tres y cinco de la presentación Old Sales y se insertan antes de la cuarta diapositiva en la presentación activa.

Presentations("Old Sales").Slides.Range(Array(3, 5)).Cut
ActivePresentation.Slides.Paste 4

¿Como podría indicar en la 1º línea que quiero cortar todas las diapositivas? Si hay 5 las 5, pero si hay 10 las 10.
¿Como podría indicar en la 2ª línea que tiene que pegar en la última diapositiva del power activo? Unas veces será en la diapositiva 4, y otras en la 20.

Gracias,

En la imagen adjunta te doy una idea: una de las hojas puede contener las instrucciones de lo que se va a copiar y donde se va a copiar
Si necesitas ayuda con la codificación de la macro me puedes escribir a mi correo: [email protected]

Muchas gracias por tu respuesta.
Precisamente la imagen que adjuntas es lo que necesito. Me pongo en contacto contigo por email.

Gracias.