Farklı bir dosyadaki sayfaları okutmak istiyorum

[Oner Kurukuz]

Arkadaşlar daha önce yine bu forumdan arladaşarın yardımı ile istediğim dosyayı yapabilmiştim
Ancak bu dosyayı biraz daha düzenlemek istiyorum fakat nasıl yapacağımı bilmiyorum.

Aşağıdaki kodu forumdan aldım (saolsunlar). Ancak bu kod aynı dosyadaki sayfaları birleştirip tek sayfada topluyor
Bana ise lazım olan farklı bir dosyadaki sayfaları toplaması.

Application.ScreenUpdating = False
Sheets("toplam").Select
Range("A5:Z65536").ClearContents
For i = 1 To Sheets.Count - 1
SonSatır = Sheets(i).[A65536].End(3).Row
Satır = [A65536].End(3).Row + 1
Sheets(i).Range("A2:Z" & SonSatır).Copy Range("A" & Satır)
Next i
SonSatır = [A65536].End(3).Row
Range("A5:Z" & SonSatır).Sort Key1:=[Z2], Order1:=xlAscending




Nasıl yapabilirim?