Enter formula in goto

Hi all,

I have this code that I would like to simplify.

Sub Macro1()
    Application.Goto Reference:="R1C1"
    Selection.Copy
    Application.Goto Reference:="R20C1"
End Sub

R1C1 has formula, ="A"&Max(A2:A50).

Tried something like

Application.Goto Reference:=Range("K4800").Value

but wont work.

If can enter the formula in the code is better.

Thank you.