Private Sub Worksheet_Change(ByVal Target As Range)

        With Range("K:K") ' Цвет текста
        .Font.Color = vbBlack
        .Characters(1, 8).Font.Color = vbBlue
        
         Dim a As String
         End With
    
    If Intersect(Target, [H:H]) Is Nothing Then Exit Sub ' Запись новой даты к списку предыдущих
    
    On Error Resume Next
    
    With Application: .ScreenUpdating = False: .EnableEvents = False: End With
    
        a = ActiveCell().Offset(-1, 3).Value ' Чтение ячейки с датой
        'MsgBox (a)
    
    Intersect(Target, [H:H]).Offset(0, 3) = Time & " ; " & a
    With Application: .ScreenUpdating = True: .EnableEvents = True: End With
    
    End Sub