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

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [D4:DK63]) Is Nothing Then Exit Sub
 For Each x In Intersect(Target, [D4:DK63])
   If TypeName(Cells(x.Row, "j").Value) <> "Boolean" Then
   With x
        OldComment = .Comment.Text & Chr(10)
        .Comment.Delete
        .AddComment
        .Comment.Text Text:=OldComment & " " & _
        Format(Now, "MM.DD.YY h:MM:ss") & " : " & NewCellValue
        .Comment.Shape.TextFrame.AutoSize = True
        .Comment.Shape.TextFrame.Characters.Font.Size = 10
        End With
End If
Next
End Sub

On Error Resume Next
Dim r As Range, c As Range
 
Set r = c.DirectDependents
If Not r Is Nothing Then
   For Each c In r
   
   Next
End If

On Error Resume Next
Dim r As Range, c As Range
 
Set r = c.Dependents
If Not r Is Nothing Then
   For Each c In r
   
   Next
End If

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewCellValue$, OldComment$
Dim cell As Range, r As Range, c As Range
If Intersect (Target, Range("D4:DK63")) Is Nothing Then Exit Sub
For each cell In Intersect(Target, Range("D4:DK63"))
If IsEmpty(cell) Then
NewCellValue = "пусто"
Else
NewCellValue=cell.Formula
End If
 
On Error Resume Next
Set r = c.Dependents
If not r Is Nothing Then
For Each c In r
With c
OldComment= .Comment.Text & Chr(10)
.Comment.Delete
.AddComment
.Comment.Text Text:=OldComment & " " & Format(Now, "MM.DD.YY h:MM") & " : " & Format(NewCellValue, "0.00")
.Comment.Shape.Text.Frame.AutoSize = True
.Comment.Shape.Text.Frame.Character.Font.Size = 12
End With
Next
End If
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Dim r As Range, t$
    
    Set r = Intersect(Target, [V2:Z5])
    If r Is Nothing Then Exit Sub
    t = Time$: AddText r, t
    
    Set r = r.Dependents
    If r Is Nothing Then Exit Sub
    AddText r, t
End Sub
 
Private Sub AddText(r As Range, t$)    
    Dim c As Range
    For Each c In r
        If Not c.Comment Is Nothing Then
           With c.Comment
                .Text .Text & vbLf & c.Text & "; " & t
           End With
        Else
           With c.AddComment.Shape.TextFrame
                .AutoSize = True
                .Characters.Font.Size = 12
                .Characters.Text = c.Text & "; " & t
          End With
        End If
    Next
End Sub