Function Пример(startI As Range, startJ As Range) As Double
    Dim ws As Worksheet
    Dim rowNum As Long
    Dim lastCol As Long
    Dim countZero As Long
    Dim i As Long
    Dim rngI As Range, rngJ As Range

    ' Определяем рабочий лист
    Set ws = startI.Worksheet
    
    ' Определяем номер строки
    rowNum = startI.Row

    ' Определяем последнюю заполненную колонку в строке (по I)
    lastCol = ws.Cells(rowNum, ws.Columns.Count).End(xlToLeft).Column
    
    ' Если данных недостаточно, возвращаем 0
    If lastCol <= startJ.Column Then
        Пример = 0
        Exit Function
    End If
    
    ' Определяем диапазоны (без последней колонки)
    Set rngI = ws.Range(startI, ws.Cells(rowNum, lastCol - 1))
    Set rngJ = rngI.Offset(0, 1)
    
    ' Считаем количество ячеек, где I = 0, а J > 0
    countZero = 0
    For i = 1 To rngI.Columns.Count
        If rngI.Cells(1, i).Value = 0 And rngJ.Cells(1, i).Value > 0 Then
            countZero = countZero + 1
        End If
    Next i
    
    ' Возвращаем результат
    Пример = countZero
End Function

=Пример(I2, J2) *Вставляем в ячейку где должна быть формула

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LastRow As Long
    Dim FormulaRange As Range
    
    ' Определяем последнюю заполненную строку в столбце I (или другом столбце с данными)
    LastRow = Me.Cells(Me.Rows.Count, "I").End(xlUp).Row
    
    ' Проверяем, находится ли измененная ячейка в диапазоне данных (столбцы I:X)
    If Not Intersect(Target, Me.Range("I:X")) Is Nothing Then
        Application.EnableEvents = False ' Отключаем события, чтобы избежать рекурсии
        
        On Error Resume Next
        ' Применяем формулу к столбцу C для всех строк с данными
        Set FormulaRange = Me.Range("C4:C" & LastRow) ' Диапазон начинается с строки 4
        FormulaRange.FormulaLocal = "=СЧЁТЕСЛИМН($I4:$X4;0;$J4:$Y4;"">0"")+(СЧЁТЕСЛИМН($I4:$X4;"">0"")>0)*(Y4=0)*(Y4=0)"
        On Error GoTo 0
        
        Application.EnableEvents = True ' Включаем события обратно
    End If
End Sub

Sub йййййййй()
''в начале макроса
Application.ScreenUpdating = False
' йййййййй Макрос
'

'
    Sheets("КМ-7").Visible = True
    Sheets(Array("КМ-6", "КМ-7")).Select
    Sheets("КМ-6").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("КМ-7").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWindow.SmallScroll Down:=18
    Range("AA46:AN46").Select
    ActiveWindow.SmallScroll Down:=6
    'в конце макроса
Application.ScreenUpdating = True
End Sub

'в начале макроса
Application.ScreenUpdating = False
Sub йййййййй()
'
' йййййййй Макрос
'

'
    Sheets("КМ-7").Visible = True
    Sheets(Array("КМ-6", "КМ-7")).Select
    Sheets("КМ-6").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("КМ-7").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWindow.SmallScroll Down:=18
    Range("AA46:AN46").Select
    ActiveWindow.SmallScroll Down:=6
End Sub
'в конце макроса
Application.ScreenUpdating = True

Sub йййййййй()
'
' йййййййй Макрос
'

'
    Sheets("КМ-7").Visible = True
    Sheets(Array("КМ-6", "КМ-7")).Select
    Sheets("КМ-6").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("КМ-7").Select
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWindow.SmallScroll Down:=18
    Range("AA46:AN46").Select
    ActiveWindow.SmallScroll Down:=6
End Sub