Sub Macro1()
Sub test()
    endRow = Cells(Rows.Count, 1).End(xlUp).Row
    myArray = Range(Cells(1, 1), Cells(endRow + 1, 6)).Value
    ReDim myArray_2(endRow - 1, 4)
    For r = 1 To 5
        myArray_2(0, r - 1) = myArray(1, r)
    Next r
    writeRow = 1
    For i = 2 To endRow
        If myArray(i, 6) = "" Then
            mycd1 = myArray(i, 1) & myArray(i, 2) & myArray(i, 3) & myArray(i, 4)
            myNum = myArray(i, 5)
            For j = i + 1 To endRow + 1
                mycd2 = myArray(j, 1) & myArray(j, 2) & myArray(j, 3) & myArray(j, 4)
                If mycd1 = mycd2 Then
                myNum = myNum + myArray(j, 5)
                myArray(j, 6) = 1
                End If
            Next j
            For r = 1 To 4
                myArray_2(writeRow, r - 1) = myArray(i, r)
            Next r
            myArray_2(writeRow, 4) = myNum
            writeRow = writeRow + 1
        End If
    Next i
    Worksheets.Add
    Range(Cells(1, 1), Cells(endRow, 5)).Value = myArray_2
End Sub