=УНИК(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(";";1;'7180301:6180310'!1:1);";";"</s><s>")&"</s></t>";"//s"))

let
    f=(x)=>Excel.CurrentWorkbook(){[Name=x]}[Content],
    Запрос = Table.Combine({f("Таблица1"), f("Таблица2"), f("Таблица3"), f("Таблица4"), f("Таблица5"), f("Таблица6"), f("Таблица7"), f("Таблица8")})
in
    Запрос

=ЕСЛИ(ЕТЕКСТ(A2);A2;D1)

=ЕСЛИ(ЕТЕКСТ(A2);B2;E1)

Sub Макрос2()
    Debug.Print 8192.71028
    Debug.Print Round(8192.71028, 15)
    Debug.Print WorksheetFunction.Round(8192.71028, 15)
End Sub

=ОКРУГЛ(8192,71028;5)

Sub Макрос1()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.DisplayAlerts = False
Dim r As Long, c As Long, arr As Variant, n As Variant, mx As Variant
arr = Range("A4:D11")
Set Dict = CreateObject("Scripting.Dictionary")
    For c = 1 To UBound(arr, 2)
        For r = 1 To UBound(arr)
            If Not Dict.Exists(arr(r, c)) Then
                Dict.Add arr(r, c), Cells(r + 3, c).Address
            Else
                Dict.Item(arr(r, c)) = Union(Range(Dict.Item(arr(r, c))), Cells(r + 3, c)).Address
            End If
        Next r
    Next c
For Each n In Dict
'Для наглядности вставил MsgBox который показывает собранные диапазоны.
'Далее их разбивает анализируем и с наибольшим количеством строк объединяем, остальные красим в красный
    MsgBox Dict.Item(n)
    If Not n = "" Then
        mx = 0
        arr1 = Split(Dict.Item(n), ",")
        For Each m In arr1
            If mx < Range(m).Rows.Count Then mx = Range(m).Rows.Count
        Next m
        For Each m In arr1
            If Range(m).Rows.Count = mx Then Range(m).Merge Else Range(m).Interior.Color = vbRed
        Next m
    End If
Next n
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Sub Макрос1()
Dim arr As Variant, arr1 As Variant, n As Long, m As Integer
arr1 = Selection.Columns("A:A")
ReDim arr(1 To UBound(arr1), 1 To 1)
Set Dict = CreateObject("System.Collections.ArrayList")
For Each r In Selection.Rows
    n = n + 1
    If Not Dict.contains(r.OutlineLevel) Then
        Dict.Add r.OutlineLevel
        If Dict.Count > 1 Then ReDim Preserve arr(1 To UBound(arr), 1 To UBound(arr, 2) + 1)
    End If
    arr(n, Dict.LastIndexOf(r.OutlineLevel) + 1) = arr1(n, 1)
    If Dict.LastIndexOf(r.OutlineLevel) + 1 > 1 And n > 1 Then
        For m = Dict.LastIndexOf(r.OutlineLevel) To 1 Step -1
            arr(n, m) = arr(n - 1, m)
        Next
    End If
Next
Columns(1).Resize(, Dict.Count).Insert Shift:=xlToRight
Selection(1).Resize(UBound(arr), UBound(arr, 2)).NumberFormat = "@"
Selection(1).Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

let
    Источник = Excel.CurrentWorkbook(){[Name="Список"]}[Content],
    #"Добавлен индекс" = Table.AddIndexColumn(Источник, "Индекс", 2, 1, Int64.Type),
    #"Условный столбец добавлен" = Table.AddColumn(#"Добавлен индекс", "Строка", each if [Список] = "Продукт" then [Индекс] else null),
    #"Заполнение вниз" = Table.FillDown(#"Условный столбец добавлен",{"Строка"}),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Заполнение вниз",{"Индекс"})
in
    #"Удаленные столбцы"

Sub Макрос1()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.DisplayAlerts = False
Dim r As Long, c As Long, arr As Variant, n As Variant
arr = Range("A4:D11")
Set Dict = CreateObject("Scripting.Dictionary")
    For c = 1 To UBound(arr, 2)
        For r = 1 To UBound(arr)
            If Not Dict.Exists(arr(r, c)) Then
                Dict.Add arr(r, c), Cells(r + 3, c).Address
            Else
                Dict.Item(arr(r, c)) = Union(Range(Dict.Item(arr(r, c))), Cells(r + 3, c)).Address
            End If
        Next r
    Next c
For Each n In Dict
    If Not n = "" Then Range(Dict.Item(n)).Merge
Next n
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

=ПРОСМОТРX(A2;ЕСЛИ($N$2:$N$32>1;$M$2:$M$32;"");$N$2:$N$32;"";0;1)

=ПРОСМОТРX(A2;ЕСЛИ($N$2:$N$32>1;$M$2:$M$32;"");$N$2:$N$32;"";0;-1)

=ЛЕВСИМВ(СЖПРОБЕЛЫ(F2);ПОИСК("/";СЖПРОБЕЛЫ(F2))-1)/ПСТР(СЖПРОБЕЛЫ(F2);ПОИСК("/";СЖПРОБЕЛЫ(F2))+1;999)*C2

=ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(СЖПРОБЕЛЫ(F2);"/";"</i><i>")&"</i></j>";"//i[1]")/ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(СЖПРОБЕЛЫ(F2);"/";"</i><i>")&"</i></j>";"//i[2]")*C2

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Извлеченный текст перед разделителем" = Table.TransformColumns(Источник, {{"Получатель счета", each Text.BeforeDelimiter(_, " ", {0, RelativePosition.FromEnd}), type text}})
in
    #"Извлеченный текст перед разделителем"