copy and paste value using macro

i have created a recorded macro that bassically when clicked adds one to the cell eg if value is 10 and the button was clicked then it would turn to 11

the problem is that i want it to go down each time it is clicked therfore
when you click it would first go to A49 and then the second time it should go down to A50 therfore each time it is click the cells goes up by 1 eg A49=1 A50=2 etc
the code is below:

Sub add1year()
'
' add1year Macro
' Macro recorded 16/01/2008 by
'

'
    Range("A47").Select
    ActiveCell.FormulaR1C1 = "=R[2]C+1"
    Range("A47").Select
    Selection.Copy
    Range("A49").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A47").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

thanks in advance