I am trying to create a macro to increase the value of any cell by a
constant, e.g., the number one. The VBA below keeps returning 4 even when
applied to a cell with, say 8 in it. I'd like the macro to return 9 in that
case.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/6/2008 by Robert G. Wood
'
' Keyboard Shortcut: Ctrl+m
'
ActiveCell.FormulaR1C1 = "=1+3"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub