Copiar una hoja excel a otro ubicada en otra red

Tengo una hoja excel el cual tengo informacion pero esta debe ser actualizada y visible en otro computadora en red
ahora he puesto lo ciguiente pero no funciona

Sub Prueba()
Dim Primera, Ultima, i As Double
i = 11
Workbooks.Open Filename:="C:\Users\indu_cmora\Desktop\Klozano\Kardex Controlados R22-Hitex R22.xls"
Primera = Range("A9").Value
Ultima = Range("K35").End(xlDown).Row
Range("A" & Primera, "K" & (Ultima)).Copy
Range("B1") = Ultima
lo siguiente va en el disco S de otro computador
Workbooks("Kardex Controlados 1.xls").Activate
Sheets("Hitex R22").Select
Do While Range("B" & i) <> ""
i = i + 1
Loop
Range("B" & i).Select
Range("B" & i).PasteSpecial
Application.CutCopyMode = False
End Sub