Macro de pegar formula

hola, Daniel !

lo que buscas es una macro parecida a esta:

Sub Copiar_formulas()
Dim Destino As Range: On Error Resume Next
Set Destino = Application.InputBox( _
Prompt:="Selecciona la celda de destino", _
Title:="Pegar formulas en...", _
Default:=ActiveCell.Offset(, 2).Address, _
Type:=8)
If Not Destino Is Nothing Then
Selection.Copy
Destino.PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
Set Destino = Nothing
End If
End Sub

saludos,
hector.

__ OP __
> Estos son los pasos que estoy haciendo
> Creo una hoja nueva.
> Escribo en cualquier celda cualquier formula
> Creo la macro
> Corro la macro
>
> Este es el codigo
> Sub Macro1()
> Selection.Copy
> ActiveCell.Offset(0, 2).Range("A1").Select
> Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
> SkipBlanks:=False, Transpose:=False
> Application.CutCopyMode = False
> End Sub
>
> El punto es que en la macro estoy definiendo la celda o la relacion de la celda donde copiara la formula
> lo que necesito es yo seleccionar donde quiero pegar la formula...