Private Sub Workscheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    ActiveCell.Calculate
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, [M9]) Is Nothing Then
        If [M9] = "ДА" Then [AK9] = [O7]
                            [O4] = [M8]
        If [M9] = "" Then Range("O4").Clear
        If [M9] = "" Then Range("AK9").Clear
    End If

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("O5")) Is Nothing Then
If Range("O5").Value = "Да" Then Range("O4").Value = Range("M10").Value
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("H2:H100")) Is Nothing Then
With Worksheets("Лист1")
lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(lr, 1) = .Cells(lr - 1, 1) + 1
    .Cells(lr, 2) = Target.Offset(0, -6)
    .Cells(lr, 3) = Target.Offset(0, -5)
    .Cells(lr, 4) = ActiveSheet.Name
    .Cells(lr, 6) = Target.Offset(0, -4)
    .Cells(lr, 9) = Target.Offset(0, -1)
End With
With Worksheets("Зибель")
    Target.Offset(0, -7) = Worksheets("Лист1").Cells(lr, 1)
    Target.Offset(0, 0) = ""
End With
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub
    If Not Intersect(Target, Range("C1:C20")) Is Nothing Then
        Application.EnableEvents = False
        If Target = "Внедрено" Then
            [A1] = DateValue(Now)
        End If
    End If
    Application.EnableEvents = True
End Sub