let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Индекс = Table.AddIndexColumn(Источник, "Индекс", 0, 1, Int64.Type),
    Остаток = Table.TransformColumns(Индекс, {{"Индекс", each Number.Mod(_, 4), type number}}),
    Свод = Table.Pivot(Table.TransformColumnTypes(Остаток, {{"Индекс", type text}}, "ru-RU"), List.Distinct(Table.TransformColumnTypes(Остаток, {{"Индекс", type text}}, "ru-RU")[Индекс]), "Индекс", "КОД"),
    Имя = Table.RenameColumns(Свод,{{"0", "Код_1"}, {"1", "Код_2"}, {"2", "Код_3"}, {"3", "Код_4"}})
in
    Имя

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Группа = Table.Group(
        Источник,
        {"Наименование", "ИНН"},
        {{
            "Количество",
            (t) =>
            [filter = Table.Transpose(Table.LastN(Table.SelectColumns(t, "КОД"), 4))][filter]
        }}),
    Результат = Table.ExpandTableColumn(Группа, "Количество", {"Column1", "Column2", "Column3", "Column4"}, {"Код_1", "Код_2", "Код_3", "Код_4"})
in
    Результат

=УНИК(A4:A15)

=ВПР(E9;$A$4:$C$15;2;0)

=ТРАНСП(ФИЛЬТР($C$4:$C$15;$A$4:$A$15=E9))

Sub Макрос1()
    Dim arr, arr1, n As Long, m As Integer
    Set dic = CreateObject("Scripting.Dictionary")
    Set dic1 = CreateObject("Scripting.Dictionary")
    arr = Range("A4:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    m = 0
    For n = 1 To UBound(arr)
        If Not dic.exists(arr(n, 1) & "|" & arr(n, 2)) Then Set dic(arr(n, 1) & "|" & arr(n, 2)) = CreateObject("Scripting.Dictionary")
        dic(arr(n, 1) & "|" & arr(n, 2))(dic(arr(n, 1) & "|" & arr(n, 2)).Count) = (arr(n, 3))
        If m < dic(arr(n, 1) & "|" & arr(n, 2)).Count Then m = dic(arr(n, 1) & "|" & arr(n, 2)).Count
    Next
    dic1.Add "Наименование", "Наименование"
    dic1.Add "ИНН", "ИНН"
    For n = 1 To m
        dic1.Add "Код_" & n, "Код_" & n
    Next
    ReDim arr1(1 To dic.Count, 1 To 2 + m)
    n = 0
    For Each y In dic
        n = n + 1
        arr1(n, 1) = Split(y, "|")(0)
        arr1(n, 2) = Split(y, "|")(1)
        m = 2
        For Each x In dic(y)
            m = m + 1
            arr1(n, m) = dic(y).Item(x)
        Next
    Next
    Cells(13, 5).Resize(1, dic1.Count) = dic1.Items
    Cells(14, 5).Resize(UBound(arr1), UBound(arr1, 2)) = arr1
End Sub