=СЧЁТЕСЛИМН(B4:AF4;"<="&F2;B5:AF5;"=0")
Sub CulcNull() Dim FoundDateColumn As Integer FoundDateColumn = Rows(4).Find(Range("F2"), , xlFormulas, xlWhole).Column Range("G13") = WorksheetFunction.CountIf(Range(Cells(5, 2), Cells(5, FoundDateColumn)), "0") End Sub