Copiar una celda y pegar como vinculo

[edu23]

Buenas, tengo una duda/problema
Tengo la necesidad de un macro(o tal vez 2)
donde la función principal sea el copiar una celda seleccionada o actual al portapapeles, ejemplo: copiar A1(que contiene una formula)
aqui tengo: SELECTION.COPY
pero luego, tal vez el 2do macro, quiero que al momento de pegar sea: =A1

ejemplo de lo que he imaginado:

NoSeQuePonerOSiVayaAFuncionar.PASTE "=" & (no se que poner para pegar/vincular? la celda A1)

En resumen... Copiar una celda, no su informacion y pegar agregando un "=" por delante para poder vincularla

o ideas de como simplicarlo?

Muchisimas Gracias de antemano

[Janlui]

Sub Macro1()
    Range("C3").Select
    Selection.Copy
    Range("C7").Select
    ActiveSheet.Paste Link:=True
End Sub

[Antoni]

Range("A2").Formula = Range("A1").Formula

 

[edu23]

Hace 1 hora, Janlui dijo:

Sub Macro1()
    Range("C3").Select
    Selection.Copy
    Range("C7").Select
    ActiveSheet.Paste Link:=True
End Sub

Tambien he probado eso, pero quisiera que la celda activa sea la copiada y almacenada en el portapapeles o pegada donde el usuario decida
no sé si me dejo entender 

[edu23]

Hace 3 horas, Antoni dijo:

Range("A2").Formula = Range("A1").Formula

 

Excelente! .Formula es lo que necesitaba
pero hay forma de que sea la celda activa y el pegado donde el usuario elija?