¿Cómo transferir Datos de un libro de Excel a otro en una Red Local?

Tengo la siguiente Macro. Funciona desde el almacenamiento de un disco, pero ahora tengo los dos archivos en una red compartida.

La macro copia ciertos datos de un libro (Libro2) a otro (Libro1) siempre y cuando cumplan con la condición.

En la declaración "ruta" no se como decirle para que copie los datos si los dos libros se encuentran en la red local compartida.

Les agradezco si me pueden apoyar. Saludos

Sub transferirDatosOtraHoja22()
ruta = "C:\Users\NOMBRE\Documents\Experimento"
libro = "Libro1.xlsx"
If Dir(ruta & "\" & libro) = "" Then
MsgBox "No se encuentra el libro Prueba2 en esta carpeta... Verifica y vuelve a intentar.", , "Error"
Exit Sub
End If
milibro = ActiveWorkbook.Name
Workbooks.Open ruta & "\" & libro
U2 = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row + 1
With Workbooks(milibro).Sheets("Hoja1")
.Activate
ultimaFila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
For I = 6 To ultimaFila

If Cells(I, "R") = "a" Then
Workbooks("libro1.xlsx").Sheets("Hoja1").Cells(U2, "a") = Range("A" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "b") = Range("B" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "c") = Range("C" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "d") = Range("D" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "e") = Range("E" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "f") = Range("G" & I)
Workbooks("Libro1.xlsx").Sheets("Hoja1").Cells(U2, "g") = Range("O" & I)
U2 = U2 + 1
End If
Next
End With

Workbooks("Libro1.xlsx").Save
'Workbooks("Libro1.xlsx").Close
MsgBox "Transferencia realizada exitosamente!", vbInformation, "Resultado"
With ActiveSheet
For I = 6 To ultimaFila
If Cells(I, "R") = "a" Then
Cells(I, "R") = "Copiada"
End If
Next
End With
End Sub