Try this

Sub m()
Dim lastrow As Long
Dim i As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = lastrow To 2 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then
Cells(i - 1, 3) = Cells(i - 1, 3) + Cells(i, 3)
Rows(i).Delete
End If
Next i
End Sub

Cheers

"pcor" wrote in message
...
I have a large spreasheet that reads as follows (In three col) The list is
sorted on Col A
No Name Amount
1 John 29
2 Jean 25
2 Jean 30
3 George 50
4 Jerry 12
4 Jerry 23

I would like then end product to look like this
No Name Amount
1 John 29
2 Jean 55 (25+30)
3 George 50
4 Jerry 35(12 +23)
I would appreciate any help I can get