=ЕСЛИОШИБКА(НАИМЕНЬШИЙ(ЕСЛИ((ОСТАТ(СТОЛБЕЦ(B3:F3);2)=0)*(C3:G3>1);B3:F3);1);НАИМЕНЬШИЙ(B3:G3;СЧЁТ(B3:G3)/2+1))

=СУММЕСЛИМН(Calculations!$J$2:$J$40;Calculations!$G$2:$G$40;$D$5;Calculations!$H$2:$H$40;СМЕЩ($D$9;ЧАСТНОЕ(СТРОКА(D9)-9;4)*4;0);Calculations!$I$2:$I$40;E9)

Sub ÖâåòÁàëëîâ()
Dim St As Integer, St2 As Integer, Ln As Integer, i As Integer
Dim x As String
For i = 3 To Cells(2, 1).End(xlDown).Row
    St = InStr(1, Cells(i, 1), " ") + 1
    Ln = InStr(St, Cells(i, 1), " ") - St
    St2 = InStrRev(Cells(i, 1), " ") - 1
    x = Mid(Cells(i, 1), St, Ln)
    If x > 150 Then
        Cells(i, 1).Characters(St, Ln).Font.Color = vbBlue
        Cells(i, 1).Characters(St2, 1).Font.Color = vbBlue
    Else
        Cells(i, 1).Characters(St, Ln).Font.Color = vbRed
        Cells(i, 1).Characters(St2, 1).Font.Color = vbRed
    End If
Next i
End Sub

Sub Yellows()

Dim c As Range
Dim i As Integer, m As Integer
m = 0
If Worksheets.Count = 1 Then Worksheets.Add after:=Worksheets(1)
Worksheets(2).UsedRange.Clear
Worksheets(1).Activate
Application.FindFormat.Interior.Color = vbYellow
For i = 1 To Worksheets(1).Cells(1, 1).End(xlDown).Row
    Set c = Worksheets(1).Range(Cells(i, 1), Cells(i, 1).End(xlToRight)).Find("", SearchFormat:=True)
    If Not c Is Nothing Then
        m = m + 1
        Worksheets(2).Cells(m, 1) = Cells(i, 1)
        Worksheets(2).Cells(m, 2) = c
    End If
Next i

End Sub

'rng1 - диапазон 1
'k1 - условие 1(в вашем примере 6)
'..
'n - какой по счету наименьший
Function Наименьший_по_двум_крит(rng1 As Range, k1 As Double, rng2 As Range, k2 As Double, n) As Double
Dim arr() As Double
Dim i As Integer, j As Integer
Dim temp As Double
i = 0
For j = 1 To rng1.Cells.Count
    If rng1.Cells(j) = k1 Then
        ReDim Preserve arr(0 To i)
        arr(i) = rng2.Cells(j)
        i = i + 1
    End If
Next j
For i = 0 To UBound(arr) - 1
    For j = i + 1 To UBound(arr)
        If Abs(arr(i) - k2) > Abs(arr(j) - k2) Or (Abs(arr(i) - k2) = Abs(arr(j) - k2) And arr(i) > arr(j)) Then
        temp = arr(i)
        arr(i) = arr(j)
        arr(j) = temp
        End If
    Next j
Next i
Наименьший_по_двум_крит = arr(n - 1)

End Function

=СУММПРОИЗВ(Ч(ДВССЫЛ("'Лист"&СТРОКА(ДВССЫЛ(ПСТР(L11;6;ПОИСК(":";L11)-6)&":"&ПСТР(L11;ПОИСК("т";L11;6)+1;ДЛСТР(L11)-ПОИСК("т";L11;6)-4)))&"'!N5")))

=ЕСЛИ(ЕЧИСЛО(ПОИСКПОЗ(B6;$H$7:$H$9;0));$H$5;ЕСЛИ(ЕЧИСЛО(ПОИСКПОЗ(B6;$I$6:$I$7;0));$I$5;ЕСЛИ(ЕЧИСЛО(ПОИСКПОЗ(B6;$J$6;0));$J$5;"нет менеджера")))

=СЧЁТЕСЛИМН(D2:BW2;"="&0;$D$1:$BW$1;">"&B2)/СЧЁТЕСЛИМН(D2:BW2;"<>";$D$1:$BW$1;">"&B2)

=СЧЁТЕСЛИМН(2:2;"="&0;$1:$1;">"&B2)/СЧЁТЕСЛИМН(2:2;"<>";$1:$1;">"&B2)

=ЕСЛИ(СУММПРОИЗВ((A2>='страница 2'!$A$2:$A$37)*(страница1!A2<'страница 2'!$B$2:$B$37)*('страница 2'!$C$2:$C$37))<>0;СУММПРОИЗВ((A2>='страница 2'!$A$2:$A$37)*(страница1!A2<'страница 2'!$B$2:$B$37)*('страница 2'!$C$2:$C$37));"нет маркера")