Public Sub test()
    Dim arr, oDic As Object, lrow&, i&, j&, r0&, keytmp$, arRez(), k
    r0 = 3
    lrow = Cells(Rows.Count, 1).End(xlUp).Row
    arr = Cells(r0, 1).Resize(lrow - r0 + 1, 7).Value
    Set oDic = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr)
        keytmp = arr(i, 1) & "|" & arr(i, 4)
        If Not oDic.Exists(keytmp) Then
            oDic(keytmp) = arr(i, 1) & "|" & arr(i, 2) & "|" & arr(i, 3) & "|" & arr(i, 4) & "|" & arr(i, 5) & "|" & arr(i, 6) & "|" & arr(i, 7)
        Else
            oDic(keytmp) = arr(i, 1) & "|" & Split(oDic(keytmp), "|")(1) & ", " & arr(i, 2) & "|" & arr(i, 3) & "|" & arr(i, 4) & "|" & arr(i, 5) & "|" & Split(oDic(keytmp), "|")(5) + arr(i, 6) & "|" & arr(i, 7)
        End If
    Next i
    ReDim arRez(1 To oDic.Count, 1 To 7)
    i = 1
    For Each k In oDic.Keys
        For j = 0 To 6
            arRez(i, j + 1) = Split(oDic(k), "|")(j)
        Next j
        i = i + 1
    Next k
    Sheets("Лист2").UsedRange.ClearContents
    Sheets("Лист2").Cells(1, 1).Resize(UBound(arRez), 7) = arRez
End Sub

let
    Source = Excel.CurrentWorkbook(){[Name="data"]}[Content],
    Group = Table.Group(Source, {"Column1", "Column3", "Column4","Column5","Column7"}, {{"Column2", each Text.Combine(List.Transform([Column2],Text.From),","), type text},{"Column6", each List.Sum([Column6]), type number}})
in
    Table.ReorderColumns(Group,Table.ColumnNames(Source))