Sub abc()
Dim i As Long
Dim startrw As Long
i = 3
startrw = 2
Do While Cells(i - 1, 1) < ""
If Cells(i - 1, 1).Value < Cells(i, 1).Value Then
Cells(i, 1).Resize(2, 1).EntireRow.Insert
Cells(i, 3).Formula = "=Sum(C" & startrw & _
":C" & i - 1 & ")"
i = i + 2
startrw = i
End If
i = i + 1
Loop
End Sub

--
Regards,
Tom Ogilvy



"JackSchilder"
wrote in message
news:JackSchilder.23a020_1140015609.2319@excelforu m-nospam.com...

Hi there,

so i have for example :

prodhiernr artnr cost
1110050 123456 50
1110050 123544 60
1110050 234343 70
1110051 534222 90
1110051 353533 100
1110051 124643 80

When de prodhiernr changes to 1110051 i want to sum the total cost for
prodhiernr 1110050 and later on for the other products also (the list
is very long).. Does anyone have a clue how to do this?

Thanks in advance


--
JackSchilder
------------------------------------------------------------------------
JackSchilder's Profile:
http://www.excelforum.com/member.php...o&userid=31577
View this thread: http://www.excelforum.com/showthread...hreadid=512702