Copiar en la primera línea no usada de otra hoja

hola,

podrias probar algo asi, a ver que tal =>

' en el modulo de la hoja 'ingresos' --
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [a5]) Is Nothing Then _
Application.OnKey "{enter}", "copiar"
End Sub

' en un modulo normal -
'
Sub copiar()
Dim ultF As Long
If [a2] = "" Then MsgBox "El nombre es obligatorio": [a2].Select:
Exit Sub
With Worksheets("clientes")
ultF = .[a65536].End(xlUp).Row + 1
.Cells(ultF, 1) = [a2]
.Cells(ultF, 3) = [b2]
.Cells(ultF, 6) = [a4]
End With
Range("a2,b2,a4").ClearContents
[a2].Select
Application.OnKey "{enter}"
End Sub


a ver si te ayuda

un saludo
Ivan