Sub mrshkei()
Dim arr, arr2, arr3, arr4, lr As Long
Dim i As Long, n As Long, x1 As Long, x2 As Long, x3 As Long, x4 As Long, x5 As Long
Range("C:H").Clear
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Array("Название", "ИНН", "Телефон", "Email", "Адрес", "Цена в заявке")
arr2 = Range("A1:A" & lr)
ReDim arr4(1 To lr * 20, 1 To 6): k = 1
For i = LBound(arr2) To UBound(arr2)
    arr3 = Split(arr2(i, 1), Chr(10))
    For n = LBound(arr3) To UBound(arr3)
        If Len(arr3(n)) > 10 Then
            x1 = Len(arr(0))
            x2 = InStr(arr3(n), arr(1))
            x3 = InStr(arr3(n), arr(2))
            x4 = InStr(arr3(n), arr(3))
            x5 = InStr(arr3(n), arr(4))
            x6 = InStr(arr3(n), arr(5))
            x7 = InStr(arr3(n), " руб.")
            
            arr4(k, 1) = Mid(arr3(n), x1 + 2, x2 - x1 - 3) ' название
            arr4(k, 2) = CStr(Mid(arr3(n), x2 + 5, 10)) ' ИНН
            arr4(k, 3) = CStr(Mid(arr3(n), x3 + Len(arr(2)) + 2, x4 - x3 - 10)) ' Телефон
            arr4(k, 4) = Mid(arr3(n), x4 + Len(arr(3)) + 2, x5 - x4 - 8) ' email
            arr4(k, 5) = Mid(arr3(n), x5 + Len(arr(4)) + 2, x6 - x5 - 8) ' Адрес
            arr4(k, 6) = Mid(arr3(n), x6 + Len(arr(5)) + 2, x7 - (x6 + Len(arr(5)) + 2)) ' сумма
            k = k + 1
        End If
    Next n
Next i
Range("C1").Resize(1, 6) = arr
Range("C2").Resize(UBound(arr4), 6) = arr4
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Shet As Worksheet
Set Shet = ThisWorkbook.Worksheets(1)
If Target.Column = 2 And Application.WorksheetFunction.CountIf(Shet.Columns(1), Target) = 0 Then
    Target.Resize(, 3).Copy Shet.Cells(Rows.Count, 1).End(xlUp).Offset(1)
Else
    With Shet
        Set cell = .Columns(1).Find(Target)
        .Cells(cell.Row, 2) = .Cells(cell.Row, 2) + Target.Offset(0, 1)
        .Cells(cell.Row, 3) = .Cells(cell.Row, 3) + Target.Offset(0, 2)
        
    End With
End If
End Sub

Sub Макрос1()
NM = Range("A1")
WN = Range("A2")
If Dir(ThisWorkbook.Path & "\" & Range("A1") & ".xlsx", vbSystem) <> "" Then
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & NM & ".xlsx"
    Windows("\" & Range("A1") & ".xlsx").Activate
Else
    Workbooks.Add
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs _
    Filename:=ThisWorkbook.Path & "\" & NM & ".xlsx"
    Worksheets(1).Name = WN
    Application.DisplayAlerts = True
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E11")) Is Nothing Then
Dim cell As Range, i As Long
For i = 10 To 92 Step 7
    For n = 12 To 26 Step 5
        If cell Is Nothing Then
            Set cell = Range(Cells(n, i), Cells(n + 3, i + 2))
        Else
            Set cell = Union(cell, Range(Cells(n, i), Cells(n + 3, i + 2)))
        End If
    Next n
Next i
If Not cell Is Nothing Then cell.ClearContents
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E11")) Is Nothing Then
    Union(Range( _
        "BG22:BI25,BN22:BP25,BU22:BW25,CB22:CD25,CI22:CK25,J12:L15,Q12:S15,X12:Z15,AE12:AG15,AL12:AN15,AS12:AU15,AZ12:BB15,BG12:BI15,BN12:BP15,BU12:BW15,CB12:CD15,CI12:CK15,CI17:CK20,CB17:CD20,BU17:BW20,BN17:BP20,BG17:BI20,AZ17:BB20,AS17:AU20,AL17:AN20,AE17:AG20" _
        ), Range("X22:Z25,AE22:AG25,AL22:AN25,AS22:AU25,AZ22:BB25,J17:L20,J22:L25,Q17:S20,Q22:S25,X17:Z21")).ClearContents
End If
End Sub

=ЕСЛИОШИБКА(ИНДЕКС([значения заполнения];АГРЕГАТ(15;6;СТРОКА(Таблица1[[#Все];[значения заполнения]])/([Значения условия]=[@[Значения условия]])/([значения заполнения]<>"");1);1);"")

=ЕСЛИОШИБКА(ПРОСМОТР(2;1/(([Значения условия]=[@[Значения условия]])*([значения заполнения]<>""));[значения заполнения]);"")

=ЕСЛИ(ПСТР($A2;E$1;1)<>ПСТР($B2;E$1;1);ПСТР($A2;E$1;1)&ПСТР($B2;E$1;1);ПСТР($A2;E$1;1))

=(15.01.2021-01.01.2021)/(01.02.2021-01.01.2021)

Sub mrshkei2()
Dim rng As Range
Set rng = Selection
rng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

=ЕСЛИОШИБКА(ИНДЕКС($A5:$J5;АГРЕГАТ(15;6;СТОЛБЕЦ($A$5:$J$5)/($A5:$J5<>"");СТОЛБЕЦ(A$1)));"")