Utilice Excel VBA para copiar, pegar, guardar y ejecutar VBA automáticamente

El código es el siguiente, preste atención a la ubicación del código (ver captura de pantalla para más detalles)

Private?Sub?Workheet_Activate()

' Application.OnKey?"~", ?""Copy4To500 "

'Application.OnKey?"{ENTER}", ?" Copy4To500"?Entrada de teclado

Fin?Sub

¿Privado?Sub ?Worksheet_Deactivate()

Aplicación.OnKey?"~"

'Aplicación.OnKey?"{ENTER}"

Fin

Sub?Copy4To500()

Filas("4:500").Copy?Sheet2.Range("A4")

ThisWorkbook.Save

Fin

Sub?