Group By

https://www.ablebits.com/office-addins-blog/excel-groupby-function/

Needs a table on sheet 1 with 3 + cokumns with headers in row 1
Sub GBTest()

With ThisWorkbook.Sheets(1) 'find bottom of data block
BR = .Range("A1000").End(xlUp).Row
BC = .Range("BX1").End(xlToLeft).Column
'clunky clear all range names
On Error Resume Next
For Each nm In ActiveWorkbook.Names
nm.Delete
Next
On Error GoTo 0

BCA = Chr(BC + 64)
main = .Range("A1:" & BCA & BR)
SumAd = .Range(BCA & "1:" & BCA & BR)

.Names.Add Name:="TX", RefersTo:=main
.Names.Add Name:="VX", RefersTo:=SumAd

.Range("H4").Select
ActiveCell.Formula2R1C1 = "=GROUPBY(CHOOSECOLS(TX, 1,2, 4), VX, SUM,3,2)"

End With
End sub

End Sub