I solved it, the code needed was
Sub AddAndResetCells()
Dim cell1 As Range
Dim cell2 As Range
' Change the addresses to your specific cells
Set cell1 = Range("A1")
Set cell2 = Range("A2")
cell2.Value = cell1.Value + cell2.Value
cell1.Value = 0
End Sub