Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("C2:C13")) Is Nothing Then  'если изменененная ячейка попадает в диапазон C2:C13
            With cell.Offset(0, -1)         'вводим в соседнюю слева ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
            End With
       End If
    Next cell
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("E2:E13")) Is Nothing Then  'если изменененная ячейка попадает в диапазон E2:E13
            With cell.Offset(0, -1)         'вводим в соседнюю слева ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца D, чтобы дата умещалась в ячейке
            End With
       End If
    Next cell
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("G2:G13")) Is Nothing Then  'если изменененная ячейка попадает в диапазон G2:G13
            With cell.Offset(0, -1)         'вводим в соседнюю слева ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца F, чтобы дата умещалась в ячейке
            End With
       End If
    Next cell
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("I2:I13")) Is Nothing Then  'если изменененная ячейка попадает в диапазон I2:I13
            With cell.Offset(0, -1)         'вводим в соседнюю слева ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца H, чтобы дата умещалась в ячейке
            End With
       End If
    Next cell
End Sub