codigo para pasar datos a un libro excel

[AMG_web_headache]

Aunque este foro tiene más de 800 años, voy a colocar la respuesta, ya que a pesar de eso, tiene muchas visitas.
Supuestos:
1) Libro 1 y Libro 2 están abiertos
2) Conocemos el nombre de Libro 2. Se llama "milibro2"
3) el libro activo (desde donde se corre la macro) es el libro 1
4) Conocemos la cantidad de Datos y son 20
5) todos los datos están en la columna A, a partir de la fila 2
6) Conocemos los nombres de las hojas: son "hoja1-libro1" y "hoja1-libro2"

Código
Public Const CANTIDAD_DATOS=20
libro1=ActiveWorkbook.Name
libro2="milibro2"
hoja1_l1="hoja1-libro1"
hoja1_l2="hoja1-libro2"

For i=1 to CANTIDAD_DATOS
Workbooks(libro2).Sheets(hoja1_l2).cells(i+1,1)=Wo rkbooks(libro1).sheets(hoja1_l1).cells(i+1,1)

Next i

Estos supuestos se pueden modificar y habría que cambiar el código. Por ejemplo si no sabemos cuantos datos son, pero sabemos que estan en el libro1 en la primera columna, y cuando se acaban los datos, viene una celda en blanco, entonces habría que eliminar la instruccion Public Const..... y colocar un código como este al comienzo

while Workbooks(libro1).sheets(hoja1_l1).cells(i+1,1)<>" "
i=i+1
wend
cantidad_datos=i