Ранг по Продукт 1 = RANKX ( ALLSELECTED ( 'Таблица' ), CALCULATE ( SUM ( 'Таблица'[Продукт 1] ) ),,, Dense )

FIND("135",[Gr],1,BLANK()))>BLANK(),"PrS"

Sub ReplaceToEmpty()Dim iRow&, cl As Range
    lRow = Cells(Rows.Count, "A").End(xlUp).Row
    For Each cl In Range("A1:A" & lRow).Cells
        If Len(cl) = 0 Then cl.Value = Empty
    Next
End Sub

Кол-во проданных проектов = 
 COUNTAX(
 FILTER(
 'DataBase';
 'DataBase'[Тип проекта] = "Проект 1" && 'DataBase'[Причина состояния] = "Квалифицированный" && 'DataBase'[Фактический доход] >0
);
 'DataBase'[Дата создания]
)

ЕСЛИ($B$3="Окна";ЕСЛИ($B$1=2019;ВПР(СЦЕПИТЬ($B$2;ЛЕВСИМВ(A7;3));'L:\Бизнес направление ОКНА\Планы\[Цели на 2019 г.xlsm]Temp'!$E:$F;2;0)+ВПР(СЦЕПИТЬ($B$2;ЛЕВСИМВ($A7;3));'L:\Бизнес направление ОКНА\Планы\[Цели на 2019 г.xlsm]Temp'!$K:$L;2;0);ЕСЛИ($B$1=2020;СУММЕСЛИМН(Sap_Stock_RF!$F:$F;Sap_Stock_RF!$C:$C;ЛЕВСИМВ($A7;3);Sap_Stock_RF!$B:$B;$B$2)+СУММЕСЛИМН(DReport!$X:$X;DReport!$C:$C;$B$2;DReport!$D:$D;$B$1;DReport!$E:$E;$A7;DReport!$I:$I;"Окна");0));ЕСЛИ($B$3="Окна+Потолки";ЕСЛИ($B$1=2019;ВПР(СЦЕПИТЬ($B$2;ЛЕВСИМВ(A7;3));'L:\Бизнес направление ОКНА\Планы\[Цели на 2019 г.xlsm]Temp'!$E:$F;2;0)+ВПР(СЦЕПИТЬ($B$2;ЛЕВСИМВ($A7;3));'L:\Бизнес направление ОКНА\Планы\[Цели на 2019 г.xlsm]Temp'!$K:$L;2;0);ЕСЛИ($B$1=2020;СУММЕСЛИМН(Sap_Stock_RF!$F:$F;Sap_Stock_RF!$C:$C;ЛЕВСИМВ($A7;3);Sap_Stock_RF!$B:$B;$B$2)+СУММЕСЛИМН(DReport!$X:$X;DReport!$C:$C;$B$2;DReport!$D:$D;$B$1;DReport!$E:$E;$A7;DReport!$I:$I;"Окна")+СУММЕСЛИМН(DReport!$X:$X;DReport!$C:$C;$B$2;DReport!$D:$D;$B$1;DReport!$E:$E;$A7;DReport!$I:$I;"Натяжные потолки");0));"Подготавливается..."))

Sub tSystem() 'добавляем динамический список [Тип системы]
Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'проверяем заполнено ли поле: [Дата]
    For i = 2 To LastRow
        If Cells(i, 4) <> "" Then 'проверяем заполнено ли поле: [Тип проекта]
            Cells(i, 13) = ХХХ 'записываем необходимое в ячейку
        Else
            Cells(i, 13) = "" 'если тип проекта не выбран, очищаем поле: [Тип системы]
        End If
    Next
End Sub

Columns("M:M").Validation.Delete '[Тип системы]
Columns("M:M").Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Тип_системы"

Sub tSystem() 
Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastRow
        If Cells(i, 4) <> "" Then
            Cells(i, 13) = КАК СЮДА ПРОПИСАТЬ ПРОВЕРКУ ДАННЫХ???
        Else
            Cells(i, 13) = "" И ЕСЛИ УСЛОВИЯ НЕ ВЫПОЛНЕНЫ, ОЧИСТИТЬ ПРОВЕРКУ ДАННЫХ
        End If
    Next
End Sub

=ЕСЛИ(ЕПУСТО(E2);H2;H2/2)