Ayuda: Copiar hipervínculos a una nueva columna

Hola buenas noches.

Les agradezco el tiempo, les comento mi problema.

Estoy preparando una macro en donde tengo una lista de hipervínculos, los cuales me salen con la dirección de una carpeta que tengo en mis documentos.

Después reduzco el nombre de esos datos con la función derecha e izquierda, el problema es que necesito que los datos que me quedan en la siguiente columna también tengan el hipervínculo de la primera columna.

Ya puedo copiar un hipervínculo con una función que me encontré pero aun no puedo hacer que me copie todos los hipervínculos de una sola vez en sus respectivas columnas.

Digamos que en a1 quede b1, a2 en b2 y asi.

Les agradezco, anexo la macro que ocupo, gracias.

Sub Hipervínculo()
With Worksheets("Hoja1")
.[B2].Hyperlinks.Add anchor:=.[B1], Address:=.[A1].Hyperlinks(1).Address
End With
End Sub