Macro para copiar celdas y colocarlas en otra celd

Entrá al Editor, insertá un módulo y allí copiá esta rutina.
Como no dejaste detalles del rango a copiar asumí que será el rango seleccionado al momento de ejecutar la rutina:
Sub CopiaYpega()
' Macro desarrollada por Elsamatilde
'
nrocel = InputBox("Ingresa celda de destino")
'si se canceló la ventana o no se ingresan datos, se cancela
If nrocel = "" Then Exit Sub
'se controla posible error de rango inexistente
On Error Resume Next
Selection.Copy Destination:=ActiveSheet.Range(nrocel)
End Sub
La expresión de copia asume que será en la hoja activa (ActiveSheet). Reemplazá este término por tu hoja si fuese otra distinta:
Selection.Copy Destination:=Sheets("Hoja3").Range(nrocel)
PD) Podrías asignarle un atajo de teclado a esta rutina. Los pasos están explicados en mi página de macros.
Sdos. No olvides finalizar la consulta

Elsa, muchas gracias por tu pronta y efectiva respuesta.
Me surgió una duda y es para darle un poco de presentación al pegado, al realizar la macro pega la información con todo y el formato donde se encuentra el origen. ¿Cómo le puedo hacer para solamente pegar valores?

Reemplazá la línea del Selection.Copy Dest..., por estas otras:
Selection. Copy
ActiveSheet.Range(nrocel).Select
Selection.PasteSpecial Paste:=xlValues
End Sub