VBA Sum and replace rather than Copy Destination

[charlie_580]

Sub test()
'define variables
Dim RowNum as long, LastRow As long
'turn off screen updating
Application.ScreenUpdating = False
'start below titles and make full selection of data
RowNum = 2
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
Range("A2", Cells(LastRow, 4)).Select
'For loop for all rows in selection with cells
For Each Row In Selection
With Cells
'if customer name matches
If Cells(RowNum, 1) = Cells(RowNum + 1, 1) Then
'and if customer year matches
If Cells(RowNum, 4) = Cells(RowNum + 1, 4) Then
'move attribute 2 up next to attribute 1 and delete empty line
Cells(RowNum + 1, 12).Copy Destination:=Cells(RowNum, 12)
Rows(RowNum + 1).EntireRow.Delete
End If
End If
End With
'increase rownum for next test
RowNum = RowNum + 1
Next Row
'turn on screen updating
Application.ScreenUpdating = True

End Sub

I have the above VBA and it is working, however the red text is moving the value from the second row to the first row, but I would like it to total the 2 values, insert it into the first row and delete the second row.

I've tried a few different things but nothing is working for me. Any help appreciated.

thanks

 

[charlie_580]

I've been thinking about this. Would it be better to sum the cells to the second row and then copy the total to row one and delete row 2?

 

[Alex Blakenburg]

I think you might be overthinking it, try:

Cells(RowNum, 12) = Cells(RowNum, 12) + Cells(RowNum + 1, 12)

 

[charlie_580]

I was over thinking it. Thank you!

 

[Alex Blakenburg]

You're welcome.