Çözüldü Dosyadaki sayfayı komple kopyalama

Merhabalar,
asagıdaki kodumda Notes sayfama ilgili yoldaki sayfayı komple kopyalamak ıstıyorum fakat kalın olan yer hata verıyor nerde hata yapıyor olabilirm

Sub Detaylar()

Application.ScreenUpdating = False

Dim Sayfa1 As Worksheet
Dim Diger_Notlar As Workbook
Dim Kopyalanacak_Tablo As Range

Set Sayfa1 = Sheets("Notes")
Set Diger_Notlar = Workbooks.Open("C:\Program Files (x86)\dosyalar\Notlar.xlsx", Password:="0", ReadOnly:=True)
Set Kopyalanacak_Tablo = Diger_Notlar.Sheets("detaylar")

Kopyalanacak_Tablo.Copy = Sayfa1

Diger_Notlar.Close

Set Sayfa1 = Nothing
Set Diger_Notlar = Nothing
Set Kopyalanacak_Tablo = Nothing

Application.ScreenUpdating = True

End Sub