Option Explicit

Dim rng As Range

Private Sub Worksheet_Change(ByVal r As Range)
    Dim NewCellValue$, OldComment$
    'если ячейка не в отслеживаемом диапазоне, то выходим
    If Intersect(r, rng) Is Nothing And r.Count > 1 Then Exit Sub
    Application.EnableEvents = 0
    'перебираем все ячейки в измененной области
    If Not Intersect(r, rng) Is Nothing And r.Count = 1 Then
        If IsEmpty(r) Then
            NewCellValue = "Ячейка очищена"  'фиксируем очистку ячейки
        Else
            NewCellValue = r.Formula     'или ее содержимое
        End If
        On Error Resume Next
        With r
            OldComment = .Comment.Text & Chr(10)
            .Comment.Delete     'удаляем старое примечание (если было)
            .AddComment         'добавляем новое и вводим в него текст
            .Comment.Text Text:=OldComment & Application.UserName & " " & _
                                Format(Now, "MM.DD.YY h:MM:ss") & " : " & NewCellValue
            .Comment.Shape.TextFrame.AutoSize = True    'делаем автоподбор размера
            .Comment.Shape.TextFrame.Characters.Font.Size = 8
        End With
        r.Copy Sheets(2).Range(r.Address) 'запоминаем на втором листе с зтим же адресом
    End If
    Application.EnableEvents = 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal r As Range)
    Application.EnableEvents = 0
    Set rng = Sheets(1).Range("B2,B3,C7") 'ваши ячейки с комментами
    If Not Intersect(r, rng) Is Nothing And r.Count = 1 Then
        Sheets(2).Range(r.Address).Copy
        r.PasteSpecial Paste:=xlPasteComments
    End If
    Application.EnableEvents = 1
End Sub