New Jersey,
This hasty bit of code goes part of the way toward your solution. It just lists the values in columns, but leaves the totals to you.
Sub BreakUpRowByValue()
'Break a row into multiple rows, breaking at comma
'Then express as a columnar array
Dim vCellValue As Variant
Dim vThisValue As Variant
Dim iDet As String
Dim sStartCell As String
sStartCell = ActiveCell.Address
vCellValue = ActiveCell.Value
FindComma:
iDet = InStr(vCellValue, ",") 'Find first comma
If iDet < 1 Then GoTo EndOfSubroutine
vThisValue = Left(vCellValue, iDet - 1)
ActiveCell.Offset(1, 0).Range("A1").Select 'Move down
ActiveCell.Value = vThisValue
vCellValue = Right(vCellValue, Len(vCellValue) - iDet) 'Remove first element
GoTo FindComma
EndOfSubroutine:
'Record last bit
ActiveCell.Offset(1, 0).Range("A1").Select 'Move down
If vCellValue <> "" Then ActiveCell.Value = vCellValue
ActiveSheet.Range(sStartCell).Select 'Point at original cell
NextCell:
ActiveCell.Offset(1, 0).Range("A1").Select 'Move down
vCellValue = ActiveCell.Value 'Get value to compare
If vCellValue = "" Then GoTo EndOfPart2
If Not IsNumeric(ActiveCell.Value) Then GoTo NextCell
If ActiveCell.Value >= 9 Then GoTo Plus9
If ActiveCell.Value >= 8 Then GoTo Plus8
If ActiveCell.Value >= 7 Then GoTo Plus7
If ActiveCell.Value >= 6 Then GoTo Plus6
If ActiveCell.Value >= 5 Then GoTo Plus5
If ActiveCell.Value >= 4 Then GoTo Plus4
If ActiveCell.Value >= 3 Then GoTo Plus3
If ActiveCell.Value >= 2 Then GoTo Plus2
Plus1:
ActiveCell.Next.Value = vCellValue
GoTo NextCell
Plus2:
ActiveCell.Next.Next.Value = vCellValue
GoTo NextCell
Plus3:
ActiveCell.Next.Next.Next.Value = vCellValue
GoTo NextCell
Plus4:
ActiveCell.Next.Next.Next.Next.Value = vCellValue
GoTo NextCell
Plus5:
ActiveCell.Next.Next.Next.Next.Next.Value = vCellValue
GoTo NextCell
Plus6:
ActiveCell.Next.Next.Next.Next.Next.Next.Value = vCellValue
GoTo NextCell
Plus7:
ActiveCell.Next.Next.Next.Next.Next.Next.Next.Value = vCellValue
GoTo NextCell
Plus8:
ActiveCell.Next.Next.Next.Next.Next.Next.Next.Next.Value = vCellValue
GoTo NextCell
Plus9:
ActiveCell.Next.Next.Next.Next.Next.Next.Next.Next.Next.Value = vCellValue
GoTo NextCell
EndOfPart2:
End Sub