Automatic Year Change in VBA

Hi

Sub MayMonth()
'
' MayMonth Macro
'

'
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "1-May-2013"
    Range("A5").Select
    Selection.AutoFill Destination:=Range("A5:A35"), Type:=xlFillDefault
    Range("A5:A35").Select
End Sub

With the above code I have twelve of them one for each month April 2013 to March 2014. Can I get the year to change automatically for 2014 to 2015 or do I have to edit each year manually and resave. Or is there a better way.

Many thanks

Chris