Macro excel para copiar y pegar tablas excel en power point

Tengo la siguiente macro en excel que lo que hace es pegarme una serie de tablas de mi excel en un power point en unas diapositivas determinadas.

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

Para que esta macro funcione tengo que tener una tabla en el excel que le indique el rango del excel que debe copiar y el nº de diapositiva donde debe copiarla. El problema es que el nº de diapositiva va variando, por lo que cada variación debo mantenerla en la tabla (a veces la diapositiva "ventas" es la nº1 y a veces la nº2). He visto que es posible indicar en la tabla de excel, el título de la diapositiva power point, en lugar del nº, por lo que así no tendría nunca jamás que mantener mi tabla. ¿Podéis ayudarme con el código?