object doesn't support this property or method hatası

[cad0]

Merhabalar,
bana lazım olan bir makroyu çalıştıramıyorum
object doesn't support this property or method hatası veriyor

Sub derscek()

With Application.File(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13""*xlsx;*.xlsm;.xlsa"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then

MsgBox "Lütfen veri çekmek istediğiniz Excel dosyasını seçimleyiniz."
Exit Sub
End If
kopya = InputBox("Kopyalamak istediğiniz hücre aralığını yazınız.", Default:="A1")
yapistir = InputBox("Yapıştırmak istediğiniz hücreyi yazınız", Default:="A1")
Aplication.Workbooks.Open.SelectedItems (1)
Set kaynak = Application.ActiveWorkbook

kaynak.ActiveSheet.Range(kopya).Copy ThisWorkbook.ActiveSheet.Range(yapistir)
kaynak.Close False
Set kaynak = Nothing


End With
End Sub

makrom bu şekilde