Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
    Dim KeyCells As Range
    Set KeyCells = Range("I4")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        
        Код программы.

    End If
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub