Soru Gözat ile kapalı dosyadan veri alma

[tukayf]

Private Sub KapaliExceldenVeriCekme()
Dim ilk, ikinci As Workbook
Dim Baslik As String
Dim Hucre1, Hucre2 As Range
Set ilk = Application.ActiveWorkbook
Baslik = "https://dilaverajder.com"
With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xls"
    .AllowMultiSelect = False
    .Show
    If .SelectedItems.Count > 0 Then
        Application.Workbooks.Open .SelectedItems(1)
        Set ikinci = Application.ActiveWorkbook
        Set Hucre1 = Range("A3:j60") 'Application.InputBox(prompt:="Kopyalamak İstediğiniz Hücreleri Seçin", Title:=Baslik, Default:="A1", Type:=8)
        ilk.Activate
        Set Hucre2 = [a1] 'Application.InputBox(prompt:="Yapıştıracağınız Yeri Seçin", Title:=Baslik, Default:="A1", Type:=8)
        Hucre1.Copy Hucre2
        Hucre2.CurrentRegion.EntireColumn.AutoFit
        ikinci.Close False
    End If
End With
End Sub

Merhabalar. Bu kodlar aradığım kodlar gözat ile dosya seçtikten sonra gelen dosyadan veri alıp kendi dosyama aktarıyor.
Ancak inputbox ile seçme kodları. Ben inputbox istemiyorum. Yapıştıracağım ve alacağım hücreler sabit o nedenle
Set Hucre1 = Range("A3:j60")
Set Hucre2 = [a1]
yazdığım yerleri nasıl düzeltmeliyim acaba.

 

[Haluk]

Kodda bir sorun yok gibi...

.

 

[tukayf]

Hocam kullandığım dosyada bir sorun var. Nerdeyse her kodda bi hata veriyor. Doğru söylüyorsunuz. Kodda sorun yokmuş. Çok sağolun.
Siz söyleyince farklı dosyada deneyince fark ettim.