Hello Rabbitoh.
I show you a way to do it with VBA:
Sub Macro4()
Dim a, Q&, i&, b, R&, D, iKey$, j%
'------------\
With Sheets("Raw Data")
a = .Range("A2", .Cells(Rows.Count, "h").End(xlUp)): Q = UBound(a)
ReDim b(1 To Q, 1 To UBound(a, 2))
End With
Set D = CreateObject("Scripting.Dictionary")
'------------\
For i = 1 To Q
iKey = a(i, 2) & "|" & a(i, 6)
If D.Exists(iKey) Then
R = D(iKey): b(R, UBound(b, 2)) = b(R, UBound(b, 2)) + a(i, UBound(b, 2))
Else
R = 1 + D.Count: D(iKey) = R
For j = 1 To UBound(b, 2): b(R, j) = a(i, j): Next
End If
Next
'------------\
With Sheets("SIMPLIFIED SUMMARY REPORT")
.Range("A2", .Cells(Rows.Count, "h").End(xlUp)).Offset(1).Delete xlShiftUp
.Range("A2").Resize(D.Count, UBound(b, 2)) = b
.Cells(1).CurrentRegion.Columns.AutoFit
Application.Goto .Cells(1), True
End With
End Sub
Bookmarks