История изменения ячейки в примечаниях

.Comment.Text Text:=OldComment & "Last changes:" & " " & Format(Now, "MM/DD/YY  hh:MM") & Format(Chr(10)) & " " & NewCellValue

 .AddComment   ' Add and enter a new text in it
      .Comment.Text Text:=OldComment & "Last changes:" & " " & Format(Now, "MM/DD/YY  hh:MM") & Format(Chr(10)) _
      & Range("A1") & Range("A3") & Format(Chr(10)) & Range("C1") & Range("C3") & NewCellValue
      .Comment.Shape.TextFrame.AutoSize = True    'auto-fit size
      .Comment.Shape.TextFrame.Characters.Font.Size = 8

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewCellValue$, OldComment$
Dim ce1l As Range
Dim cCd As Integer
Dim cRd As Integer

 
 'если ячейка не в отслеживаемом диапазоне, то выходим
 If Intersect(Target, Range("i3:i1000000";)) Is Nothing Then Exit Sub
 
 'перебираем все ячейки в измененной области
 For Each cell In Intersect(Target, Range("i3:i1000000";))
 If IsEmpty(cell) Then
 NewCellValue = "Ячейка очищена" 'фиксируем очистку ячейки
 Else
 NewCellValue = cell.Formula 'или ее содержимое
 End If
 On Error Resume Next
 
 With cell
 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
 
 cCd = cell.Column + 1 'адрес ячейки на 1 правее от изменяемой
 cRd = cell.Row 'адрес ячейки на одной строке с изменяемой
 Cells(cRd, cCd) = Format(Now, "MM.DD.YYYY";)
 
 Next cell
 
End Sub

NewCellValue 

Format(NewCellValue, "DD.MM.YY ")

Dim IsCopyMode As Boolean
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim a
  If Not IsCopyMode Then Exit Sub
  a = Target.Value
  With Application
    .EnableEvents = False
    .Undo
    Target.Value = a
    .EnableEvents = True
  End With
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  IsCopyMode = Application.CutCopyMode = xlCopy
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

 Format(Now, "MM.DD.YY h:MM:ss") & " : " & Format(NewCellValue, "DD.MM.YYYY")