Filas consecutivas

Asumiremos que escribes en Hoja1, y los datos pasan a Hoja2. En Hoja1 asumiremos que escribes en la celda A2. Mientras que los datos que se colocaran en filas sera en la Hoja2, a partir de la celda A2 de Hoja2. Cuando decidas escribir otro valor en A2 de Hoja1, al ejecutar la macro, lo alojara en la celda A3 de Hoja2.
Abre el libro que tienes. Pulsa ALT+F11. Ve a Menu Insertar > Modulo. En dicha ventana copia y pega el código:
Sub EnvioDatos()
Nomhoja1 = "Hoja1"
Nomhoja2 = "Hoja2"
If Sheets(Nomhoja2).Range("A2") = "" Then
    Sheets(Nomhoja2).Range("A2").Value = Sheets(Nomhoja1).Range("A2").Value
Else
    Sheets(Nomhoja2).Select
    ufila = Range("A6500").End(xlUp).Row + 1
    Sheets(Nomhoja2).Range("A" & ufila).Value = Sheets(Nomhoja1).Range("A2").Value
    Sheets(Nomhoja1).Select
End If
End Sub
COmo podrás ver, en la segunda y tercera linea de código se indica el nombre de la hoja. Aquí tendrás que cambiar los nombres, por lo que tu tienes en tu libro.
Guarda los cambios. Retorna a Hoja1. Deberas dibujar un boton de comando.
En el codigo del boton de comando habra este codigo que llamara la macro creada:
Private Sub CommandButton1_Click()
Call EnvioDatos
End Sub
'==== Espero haberte ayudado