Copiar en celda actual

Héctor Miguel:

Interpretando tus orientaciones (y ocho días despues -como si fuera
gran cosa de parte mia-), el código aludido (o danza acostumbrada en
un solo paso)...
<libro_origen>.<hoja_origen>.<rango_origen>.copy
<libro_destino>.<hoja_destino>.<celda_inicial>.paste
...me quedó así (funciona, pero tengo mis dudas):

Sub PasarRegistroDeUnLibroAOtro()
Windows("Demo mejorado.xls").Activate 'Selecciono el libro origen
Worksheets("Cita").Range("Reg").Copy 'Selecciono la hoja y el
rango origen y copio
Windows("Agenda.xls").Activate 'Selecciono el libro
destino
Worksheets("CitasAg").Activate 'Selecciono la hoja
destino

Do While Not IsEmpty(ActiveCell) 'En esta parte -
intento-
ActiveCell.Offset(1, 0).Activate 'buscar la celda
inicial
Loop
'disponible hacia abajo

ActiveCell.PasteSpecial xlPasteValues 'Hago -Pegar valores-
Application.CutCopyMode = False 'este código no se para
que sirve, pero sin el pareciera no funcionar
ActiveWorkbook.Save 'Salvo el archivo
destino
End Sub

Por favor Héctor Miguel me podrías "calificar la tarea" y ayudarme con
las siguientes inquietudes
Mis dudas son:
a) Hay una forma mas eficiente de hacerlo?
b) Donde es aconsejable colocar el código de la macro; en el origen o
en el destino?
c) Por cual herramienta puedo (debo) colocar el botón que ejecute la
instrucción?

Gracias de nuevo por tu atención y disculpa tanta moletia.

Manuel