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

            End With

       End If
    Next cell
End Sub