VBA Project creating a subroutine for activcell

Question

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:

Sub AddNumbersB()
    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.

Answer 1

You have to increase ActiveCell's value by that amount, x. You currently just write the value x, so change:

ActiveCell.Offset(-3, 2).Value = ActiveCell.Value + x