Private Sub CommandButton1_Click()
Dim i&, j&
Application.ScreenUpdating = False
[A:C].Copy [E:G]
For i = Range("E65536").End(xlUp).Row To 3 Step -1
For j = i - 1 To 2 Step -1
If Cells(i, "E") = Cells(j, "E") Then
Cells(j, "F") = Cells(j, "F") + Cells(i, "F")
Cells(j, "G") = Cells(j, "G") + Cells(i, "G")
Cells(i, "E").Resize(, 3).Delete xlUp
Exit For
End If
Next
Next
End Sub