Mantener el formato de origen a una cena vinculada

Soy nuevo en el foro, ojala y me pudieran ayudar con lo siguiente.
Tengo un problema al vincular una celda a otra, no me mantiene el formato de la celda de origen, navegando en la red, encontré un macro que lo soluciona, pero solo lo aplica para la primera fila, y no me detecta el cambio del segundo decimal, ojala y me puedan orientar que puedo hacer.

Este es el macros que utilice.

Private Sub Worksheet_Activate()
'Prueba
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End Sub