Sub HaiHoHung()
i = 2
T = Range("C" & i).Value
lr = Range("A" & Rows.Count).End(xlUp).Row
Do While i < lr
If Range("A" & i).Value = Range("A" & i + 1).Value And Range("B" & i).Value = Range("B" & i + 1) Then
T = T + Range("C" & i+1).Value
If T <= Range("D" & i).Value Then
i = i + 1
Else
Range("G" & i).Value = T
Range("H" & i).Value = Range("F" & i).Value
i = i + 1
End If
Else
Range("G" & i).Value = T
Range("H" & i).Value = Range("F" & i).Value
i = i + 1
End If
Loop
End Sub