A subroutine named AddNumbersB should be created that prompts the user for a number, adds it to the value in the active cell, and then enters the result in a cell that is three rows and two columns to the right of the active cell.
So Far I did:
Dim x As Double
x = InputBox("Please enter a number")
ActiveCell.Offset(-3, 2).Value = x
There is still something wrong. I am not sure if I missed anything.