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
[TABLE="width: 677"]
<colgroup><col><col span="3"></colgroup><tbody>[TR]
[TD]ESOS10[/TD]
[TD] $ 2,813[/TD]
[TD] $ 5,759[/TD]
[TD] $ 2,879[/TD]
[/TR]
[TR]
[TD]ESOS10[/TD]
[TD] $ 10,856[/TD]
[TD] $ 13,504[/TD]
[TD] $ 11,961[/TD]
[/TR]
</tbody>[/TABLE]
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