This is what I came up with - I am not sure how I can build stronger controls
into it using If Then statements. Any thoughts...

Option Explicit

Sub MoveCell()
Dim rslt1 As Integer
Enternumber:
rslt1 = Application.InputBox("Enter the number of cells to space
down - use a negative number to space up")
Dim rslt2 As Integer
Enternumber2:
rslt2 = Application.InputBox("Enter the number of cells to space
right - use a negative number to space right")
ActiveCell.Offset([rslt1], [rslt2]).Activate
End Sub