sum two cellls in different rows/deleting second row-loss of data

[jlr123]

I have many rows in spreadsheets that I need to first add value in c1 to d1 and then delete d1 as an example

ESOS10	$ 2,813	$ 5,759	$ 2,879
ESOS10	$ 10,856	$ 13,504	$ 11,961

<colgroup><col><col span="3"></colgroup><tbody>
</tbody>

Add 2813 +10856 delete 10856 - add 5759+13504 delete 13504 etc

Is there any quick way to add each and delete the second row without losing the summed values?

 

[ravishankar]

Use the following codes to to sum successive rows of col C and delete the latter.

Sub ggg()
Dim a As Integer, x As Integer
x = Sheets("sheet1").Cells(Rows.Count, 3).End(xlUp).Row
For a = x To 1 Step -2
Cells(a - 1, 3) = Cells(a, 3) + Cells(a - 1, 3)
Rows(x).Delete
Next a
MsgBox "complete"
End Sub
Ravi shankar