[VBA]

Public Sub ProcessData()
Dim sh As Worksheet
Dim Lastrow As Long
Dim Nextrow As Long
Dim Matchrow As Long
Dim i As Long

Application.ScreenUpdating = False

Set sh = Worksheets("Sheet2")

With ActiveSheet

Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

.Range("A11").Copy sh.Range("A1")
Nextrow = 2

For i = 2 To Lastrow

Matchrow = 0
On Error Resume Next
Matchrow = Application.Evaluate("SUMPRODUCT(--(A" & i & "=Sheet2!A1:A200)," & _
"--(B" & i & "=Sheet2!B1:B200),ROW(Sheet2!A1:A200))")
On Error GoTo 0
If Matchrow = 0 Or Matchrow > 200 Then

.Cells(i, "A").Resize(, 4).Copy sh.Cells(Nextrow, "A")
Nextrow = Nextrow + 1
Else

sh.Cells(Matchrow, "C").Value = sh.Cells(Matchrow, "C").Value + .Cells(i, "C").Value
sh.Cells(Matchrow, "D").Value = sh.Cells(Matchrow, "D").Value + .Cells(i, "D").Value
End If
Next i
End With

Application.ScreenUpdating = True
End Sub[/VBA]