Your GetFormula function expects a range.

Function GetFormula(Target As Range) As String
    GetFormula = Target.Formula
End Function

But when you call it, you pass an address/a string:

c.Formula = Eval(GetFormula(c.Adress))

So, change this line to:

c.Formula = Eval(GetFormula(c))