Maybe:

Sub EnterFormula()
    Worksheets("Sheet1").Range("M65").Formula = "=AVERAGE(M6:M47)"
    Range("M67") = Range("M66").Value    'On Deck becomes Prior Data
    Range("M66") = Range("M65").Value     'New data copied to On Deck area
End Sub

Dom