=СУММЕСЛИ(СМЕЩ($B$2;ПОИСКПОЗ($E11;$A$3:$A$20;0);0;ПОИСКПОЗ("Прим.:";СМЕЩ($A$2;ПОИСКПОЗ($E11;$A$3:$A$20;0);0;20);0)); F$10;СМЕЩ($C$2;ПОИСКПОЗ($E11;$A$3:$A$20;0);0;ПОИСКПОЗ("Прим.:";СМЕЩ($A$2;ПОИСКПОЗ($E11;$A$3:$A$20;0);0;20);0)))

=B1&СИМВОЛ(10)&C1&СИМВОЛ(10)&D1

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rc As Range
    
    On Error Resume Next
    For Each rc In Target
        If InStr(1, rc.Formula, "=ИзвлечьДатуДокумента1(", 1) > 0 Then
            rc.NumberFormat = "dd.MM.yyyy"
        End If
    Next
End Sub

Public Function ИзвлечьДатуДокумента1(Text As String) As Date
    ИзвлечьДатуДокумента1 = CDate(MyReg(Text, "\d{2}\.\d+\.\d+"))
End Function

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        Sh.Visible = 2
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    MsgBox "disable to add sheets"
End Sub

iCell.FormulaLocal = iCell.Formula

iCell.FormulaLocal = iCell.FormulaLocal

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;СИМВОЛ(10);" ");СИМВОЛ(13);" ")

each Not List.Contains(list,[Наименование])