Separate the two cracks in two blocks, and add the last digit

As a beginner starter :

PHP Code: 

Sub Demo1()
    Dim V, W, R&
        V = [A5].CurrentRegion.Value2
        ReDim W(1 To UBound(V), 1 To 4)
    For R = 1 To UBound(V)
        W(R, 1) = Right(V(R, 1), 1) & "," & Right(V(R, 2), 1) & "," & Right(V(R, 3), 1)
        W(R, 2) = Evaluate("SUM({" & W(R, 1) & "})")
        W(R, 3) = Right(V(R, 5), 1) & "," & Right(V(R, 6), 1) & "," & Right(V(R, 7), 1)
        W(R, 4) = Evaluate("SUM({" & W(R, 3) & "})")
    Next
        [I5:L5].Resize(UBound(W)).Value = W
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !