Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub 'если выделена не одна ячейка - выход из процедуры
    
    Rem если изменененная ячейка попадает в диапазон 
    If Not Intersect(Target, Range("B7:B10000")) Is Nothing Then
        With Target.Offset(0, 2) 'вводим в соседнюю справа ячейку дату
            .Value = Time
            .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
        End With
    End If
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub 'если выделена не одна ячейка - выход из процедуры
    
    Rem если изменененная ячейка попадает в диапазон 
    If Not Intersect(Target, Range("E7:E10000")) Is Nothing Then
        With Target.Offset(0, 2) 'вводим в соседнюю справа ячейку дату
            .Value = Now
            .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
        End With
    End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub 'åñëè âûäåëåíà íå îäíà ÿ÷åéêà - âûõîä èç ïðîöåäóðû
    
    Rem åñëè èçìåíåíåííàÿ ÿ÷åéêà ïîïàäàåò â äèàïàçîí A2:A100 èëè D2:D100
    If Not Intersect(Target, Range("A5:A1000,M5:M1000,U5:U1000,AD5:AD1000")) Is Nothing Then
        With Target.Offset(0, 2) 'ââîäèì â ñîñåäíþþ ñïðàâà ÿ÷åéêó äàòó
            .Value = Time
            .EntireColumn.AutoFit 'âûïîëíÿåì àâòîïîäáîð øèðèíû äëÿ ñòîëáöà B, ÷òîáû äàòà óìåùàëàñü â ÿ÷åéêå
        End With
    End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 
  For Each cell In Target   'проходим по всем измененным ячейкам
     If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
          With cell.Offset(0, 2)         'вводим в соседнюю справа ячейку дату
             .Value = Time
             .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
          End With
     End If
  Next cell
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
 
  For Each cell In Target   'проходим по всем измененным ячейкам
     If Not Intersect(cell, Range("D2:D100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон D2:D100
          With cell.Offset(0, 2)         'вводим в соседнюю справа ячейку дату
             .Value = Time
             .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
          End With
     End If
  Next cell
End Sub

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