Copy / paste from workbook to current workbook slow

[jynxy]

Hi,

When copying / pasting from another workbook to current workbook is fine when not shared about 10 seconds, once its shared its extremely slow around 200 seconds.

File opens quick, selects the filter range and copy then the paste is slow.

Anyway to make this run faster ?

 Workbooks.Open ("\\pathtofile" & FileName)
    Windows(FileName).Activate
Sheets("MySheet").Select
    Range("A1").Select
    ActiveSheet.Range("$A$1:$G$9000").AutoFilter Field:=1, Criteria1:=1234
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy Workbooks(MyFile).Sheets("data").Range("a1")