Cita:
Iniciado por mrocf 
Entonces la variante sería:
Código vb:
Ver originalDim miLibro As Workbook
Set miLibro = ActiveWorkbook ' Asigno el libro activo a la variable
[ejecuto el código]
miLibro.Activate ' Retorno al libro de origen
Set miLibro = Nothing ' Desvinculo el objeto de la variable y libero recursos
Saludos, Cacho. 
Y COMO OBTENGO LOS DATOS DE LAS CELDAS?
Cells(i, 6).Value = Cells(i, 1) <-- DE ESTA FORMA NO ES.
COMO LE DIGO
Cita: DEL PRIMER LIBRO COPIE LA CELDA 1 EN EL 2LIBRO EN LA CELDA 1
Y ASI SUCESIBAMENTE CON LAS CELDAS QUE NECESITO
GRACIAS