Copiar una celda con hipervínculo

Hola
Hay un pequeño problema con la hoja "BASE" (no se puede acceder a ella a través de VBA). La he renombrado como "BASEold" y he creado una nueva que funciona bien.
He añadido un botón "Copiar enlaces hipertexto", solo hay que hacer clic en él para que los enlaces se copien en la hoja "MDR" con las fórmulas incluidas.

https://www.cjoint.com/c/EBykUlhbUL2
Espero que esto sea de ayuda.
Saludos cordiales

Hola
No teniendo mucha precisión sobre la copia (en qué celda, nombre de la hoja, etc.), aquí está lo que sale al utilizar el grabador de macros
ejemplo: copia de una celda con hipervínculo de la celda A1 de la hoja 1 hacia la celda B1 de la hoja 2

 Sheets("Hoja1").Select '
 Range("A1").Select
 Selection.Copy
 Sheets("Hoja2").Select
 Range("B1").Select
 Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone , SkipBlanks:=False, Transpose:=False

lo que equivale a hacer manualmente
celda A1 hoja 1: seleccionar - copiar
celda B1 hoja 2: pegar especial - Todo, con el tema de origen
Esperando que esto pueda ayudarle
saludos