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
    If cell.Value = "время" Then
        With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату
        .Value = Now
        .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
        End With
    End If
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) 'вводим в соседнюю справа ячейку дату
                If cell.Value = "время" Then
                    .Value = Now
                    .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
                Else
                    .Value = ""
                End If
            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
            cell.ClearContents
            If cell = "время" Then
                With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату
                    .Value = Now
                    .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
                End With
            End If
        End If
    Next cell
End Sub

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