Copiar links de forma exacta a otra hoja

Hola Lucas:
Tengo una macro que me lleva los datos de la
mascarilla de captura a otra hoja llamada datos, pero resulta que en la mascara de
captura hay vínculos y estos me los lleva como datos, quisiera saber si
hay una forma que me copie el link de forma exacta sin desordenar la
secuencia de los registros.
Esta asi:

Sub Captura_Datos()
'Declaración de variables
'
Dim strTitulo As String
Dim Continuar As String
Dim TransRowRng As Range
Dim NewRow As Integer
Dim Limpiar As String
'
strTitulo = "SANOFI"
'
Continuar = MsgBox("Dar de alta el evento?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub
'
Set TransRowRng = ThisWorkbook.Worksheets("Datos").Cells(1, 1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
With ThisWorkbook.Worksheets("Datos")
.Cells(NewRow, 1).Value = ThisWorkbook.Sheets(1).Range("d5")
.Cells(NewRow, 2).Value = ThisWorkbook.Sheets(1).Range("d6")
.Cells(NewRow, 3).Value = ThisWorkbook.Sheets(1).Range("d7")
.Cells(NewRow, 4).Value = ThisWorkbook.Sheets(1).Range("d8")

las celdas (d6,d7 y d8) son vínculos y me los pasa como valor.
Gracias, mil gracias.
Alejandro.