Ayuda por favor pasar datos de un libro a otro

Teng oel siguiente problema. Debo pasar datos de un libro a otro libro que será mi base de datos. Tengo el siguiente codigo y funciona bien, pero cuando comparto los libros me saca un error en el entire. Row, que puede ser, ya lo he probado todo. ¿Cómo puedo solucionarlo?
Tengo el siguiente código pero cuando comparto los libros con otros equipos de la red, ya no me funciona el código. Pruebanlo si quieren.
'llevar el registro a la base de datos correspondiente a la ruta y el libro
'de destino
Sub llevarlo_bd()
Dim rutaBaseDatos As String
Dim libroOrigen As String
Dim hojaOrigen As String
Dim libroDestino As String
Dim hojaDestino As String
'puede ser usado para las demas,solo se cambian las rutas de origen y destino,
'el nombre de los libros tambien
hojaDestino = "hojaDestino "
libroDestino = "libroDestino .xls"
hojaOrigen = "hojaOrigen "
libroOrigen = "libroOrigen .xlsm"
rutaBaseDatos = "\\dtorresp1\Base de Batos 2010\Tamizaje\libroDestino .xls" 'ruta de destino
Workbooks. Open (rutaBaseDatos)
Workbooks(libroOrigen). Activate
Worksheets(hojaOrigen). Activate
Hoja1. Rows(8). Copy
Workbooks(libroDestino). Activate
Worksheets(hojaDestino). Activate
Cells(2, 1).Select
Selection. EntireRow.Insert 'agrega una fila nueva en la segunda fila
ActiveSheet. Paste 'pega la fila de la hoja origen
Workbooks(libroDestino). Save 'guarda el libro de destino
Workbooks(libroDestino).Close 'cierra el libro de destino
end sub