Howdy and welcome to the board. You would need to add a counter for the rows and then loop through the rows. Here is one way to approach.
Code:
Sub test()
Dim lngLastRow As Long
Dim lngCounter As Long
lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For lngCounter = 2 To lngLastRow
Cells(lngCounter, 2).Formula = Cells(lngCounter, 1) + Cell(lngCounter, 2)
Next lngCounter
End Sub
You can either set this up as a normal module that you associate with a button, or you could call it from a Private module that will run automatically. You want to be careful doing it this second way because you want to avoid an endless loop.