Prod1    2 x WH1
Prod2    2 x WH1, 59 x WH4
Prod3    54 x WH1
Prod6    20 x WH3, 8 x WH5
Prod8    21 x WH2

=LET(
inTab; FILTER({C4:C\E4:E\F4:F}; C4:C<>"");
outTab; FILTER({I4:I\-K4:K\L4:L}; I4:I<>"");
tab; {inTab; outTab};
prodloc; SORT(UNIQUE({INDEX(tab;0;1) \ INDEX(tab;0;3)}));
sumQty; MAP(INDEX(prodloc;0;1); INDEX(prodloc;0;2); LAMBDA(prod;loc; SUM(FILTER(INDEX(tab;0;2); INDEX(tab;0;1)=prod; INDEX(tab;0;3)=loc))));
group1; MAP(INDEX(prodloc;0;1); INDEX(prodloc;0;2); sumQty; LAMBDA(pr;lo;qt; {pr \ qt & " x " & lo}));
MAP(UNIQUE(INDEX(group1;0;1)); LAMBDA(pr;{pr \ JOIN(", ";FILTER(INDEX(group1;0;2); INDEX(group1;0;1)=pr))}))
)

let
    Источник = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"QTY", type number}}),
    #"Сгруппированные строки1" = Table.Group(#"Измененный тип", {"Prod", "Location"}, {{"Сумма", each List.Sum([QTY]), type nullable number}}),
    Источник1 = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
    Измененный_тип1 = Table.TransformColumnTypes(Источник1,{{"QTY", type number}}),
    Сгруппированные_строки2 = Table.Group(Измененный_тип1, {"Prod", "Location"}, {{"Сумма", each List.Sum([QTY]), type nullable number}}),
    #"Объединенные запросы" = Table.NestedJoin(#"Сгруппированные строки1", {"Prod", "Location"}, Сгруппированные_строки2, {"Prod", "Location"}, "Сгруппированные_строки2", JoinKind.LeftOuter),
    #"Развернутый элемент" = Table.ExpandTableColumn(#"Объединенные запросы", "Сгруппированные_строки2", {"Сумма"}, {"Сумма.1"}),
    #"Замененное значение1" = Table.ReplaceValue(#"Развернутый элемент",null,0,Replacer.ReplaceValue,{"Сумма", "Сумма.1"}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Замененное значение1", "Остатки", each [Сумма]-[Сумма.1]),
    #"Сгруппированные строки" = Table.Group(#"Добавлен пользовательский объект", {"Prod", "Location"}, {{"Остаток", each List.Sum([Остатки]), type number}}),
    #"Сортированные строки" = Table.Sort(#"Сгруппированные строки",{{"Prod", Order.Ascending}})
in
    #"Сортированные строки"

Sub Spr()
    Dim Dic As Object, arr1, arr2, arr3, y, n As Long, m As Long
    Set Dic = CreateObject("Scripting.Dictionary")
    m = 0
    arr1 = ActiveSheet.ListObjects("Table1").DataBodyRange
    For n = 1 To UBound(arr1)
        If Not Dic.Exists(arr1(n, 1) & "|" & arr1(n, 4)) Then
            Dic.Add arr1(n, 1) & "|" & arr1(n, 4), arr1(n, 3)
            m = m + 1
        Else
            Dic(arr1(n, 1) & "|" & arr1(n, 4)) = Dic(arr1(n, 1) & "|" & arr1(n, 4)) + arr1(n, 3)
        End If
    Next
    arr2 = ActiveSheet.ListObjects("Table2").DataBodyRange
    For n = 1 To UBound(arr2)
        If Dic.Exists(arr2(n, 1) & "|" & arr2(n, 4)) Then
            Dic(arr2(n, 1) & "|" & arr2(n, 4)) = Dic(arr2(n, 1) & "|" & arr2(n, 4)) - arr2(n, 3)
        Else
            Dic.Add arr2(n, 1) & "|" & arr2(n, 4), -arr2(n, 3)
            m = m + 1
        End If
    Next
    ReDim arr3(1 To m, 1 To 3)
    n = 1
    For Each y In Dic
        arr3(n, 1) = Split(y, "|")(0)
        arr3(n, 2) = Split(y, "|")(1)
        arr3(n, 3) = Dic(y)
        n = n + 1
    Next
    With Sheets("Sheet2")
        .Cells.Clear
        .Range("B2").Resize(UBound(arr3), UBound(arr3, 2)) = arr3
    End With
End Sub