Copia esto en un modulo y pruebalo:
En la hoja 1 tines ke tener un boton ke redireccione al codigo, y comienzas a escribir en la celda A1 tus palabras y le das clic al boton antes agregado y repites y repites asi sucesivamente
---------------------------------------------------------------------
With Worksheets("Hoja2")
fila = 1
Do While True
If IsEmpty(.Cells(fila, 1)) Then Exit Do
fila = fila + 1 '
Loop
.Cells(fila, 1) = Worksheets("Hoja1").Range("A1").Value
End With
------------------------------------------------------------------------
Espero que te haya serivdo, en todo caso me agregas y conversamos
asaroma@msn.com bytez :)
