Добавление информации в ячейку Excel с сохранением форматирования существующего текста

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
            With Target(1, 1)
                If IsEmpty(Target) Then
                .Value = Application.UserName & ": "
                Else
                .Value = .Value & vbLf & Application.UserName & ": "
                End If
            End With
        End If
Cancel = 0
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then 'If Target.Column = 1
       Cancel = True 'Использовать только при необходимости
       With Target(1, 1)
            .Characters(Len(.Value) + 1).Insert _
            IIf(IsEmpty(.Value), "", vbLf) & Application.UserName & ": "
       End With
    End If
End Sub