Macro buscar dato en un libro compartido y al encontrarlo pegar fila que lo contiene en otro libro

Buenas tardes.

Tengo una macro que me funciona muy bien buscando un dato en una columna determinada y al encontrarlo copia y pega un rango de celdas determinado en otra hoja del mismo archivo. Pero se me presentó el problema de que ahora es necesario que ese archivo de excel sea de uso compartido, y al habilitar esa opción se deshabilitan las macros. Entonces necesito modificar mi macro para que abra ese archivo compartido busque el dato, copie el rango de celdas donde está el dato y pegue esas celdas en otro libro desde donde ejecuto la macro con el botón de comando. Anexo la macro que necesito modificar a ver si me pueden ayudar.

Sub Buscar_Texto_En_Lista()
Dim BAN As Worksheet, Fila As Long
Application.ScreenUpdating = False
Set BAN = Sheets("Movimientos")
Fila = 24
Range("A24:E" & Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents
For por = 14 To BAN.Range("A" & Rows.Count).End(xlUp).Row
If BAN.Range("C" & x) Like "*" & Range("G8").Value & "*" Then
BAN.Range("A" & x & " : D" & x).Copy
Range("B" & Fila).PasteSpecial Paste:=xlValues
Range("A" & Fila).Value = Fila - 23
Fila = Fila + 1
End If
Next
Range("A14").Select
End Sub