Sub ConsolidateRows()
Dim i As Long
i = 1
Do While Cells(i + 1, "D") < ""
If Cells(i, "D").Value = Cells(i + 1, "D").Value Then
Cells(i, "E").Value = Cells(i, "E").Value + _
Cells(i + 1, "E").Value
Rows(i + 1).Delete
Else
i = i + 1
End If
Loop
End Sub





--
Regards,
Tom Ogilvy



"milleroy" wrote in
message ...

Hi I really need some help with this one - Please !

I have a table with 5 columns.
I want to use VB to look for a duplicate in column D, when one (or
more) is found, add up the duplicates in column E and delete the
unwanted rows. As in example

column D column E
Prod 1 2
Prod 2 3
Prod 3 56
Prod 3 44
Prod 3 10
Prod 1 33
Prod 1 67

What I would like it to show is

column D column E
Prod 1 2
Prod 2 3
Prod 3 110
Prod 1 100

Any suggestions ?


--
milleroy
------------------------------------------------------------------------
milleroy's Profile:
http://www.excelforum.com/member.php...o&userid=29870
View this thread: http://www.excelforum.com/showthread...hreadid=511781