boton en excel para meter datos en otra hoja con un input box

[modfemme]

Hello everybody!!

¿Alguien me puede ayudar con esto? He creado con ayuda del foro una macro en excel que permite ir copiando una fila de tal forma que se vaya almacenando según doy un botón. Lo malo es que al contener el comando 'AtiveCell' es necesario que yo seleccione la celda inicialmente. ¿Hay alguna manera para que esta acción no sea necesaria?
¡¡Muchas gracias!!

Sub Macrooooo()
Range("A1:F1").Select
Selection.Copy
Sheets("Hoja2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Sheets("Hoja1").Select
Application.CutCopyMode = False
End Sub