Función Enter incluida en una macro

Uso una macro que me copia los datos de determinadas celdas y lo pega en otras celdas. La macro la activo mediante un botón. Quisiera saber si hay posibilidad de que no tenga que pulsar el botón para introducir los datos y simplemente pulse Enter y se peguen los datos. Muchas gracias.(Dejo el código)

Private Sub INGRESADATOSAGENDA()
' agrega datos a la agenda
'Copiamos los datos
Application.ScreenUpdating = False
    Range("B4:G4").Select
    Selection.Copy
    'aquí es en donde vamos hacer el arreglo para pegar los datos
    'vamos a tomar como referencia la primer celda en dónde podemos ingresar datos
    conta = Range("G2") 'tomamos el valor de la celda "G2"
    Range("B" & 8 + conta).Select  'queda ok!
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("B4:G4").Select
        Selection.ClearContents
    Range("B4").Select
End Sub