Soru Kapalı dosyadan açık dosyaya veri aktarımı hkk,

[TiOr]

Merhaba,
Paylaşmış olduğum kodda kapalı dosyadan veri çekebiliyorum. Kodda belirlenen veri aralığı ve hücre aralığı seçimi yaparak işlev görmektedir.
Veri aralığı kapalı dosyayı içermektedir yani kopyası alınan aralıktır.
Hücre ise açık olan dosyada yapıştırılması istenen hücre aralığıdır.
Burada her bir veri çektiğimde doğal olarak aynı hücrenin üstüne atmaktadır veriyi. Her seferinde hücre aralığını yazmak gerekiyor özetle.

Burada yapmak istediğim hücre aralığı vermeden en son boş satıra veriyi yapıştırmasını nasıl sağlayabilirim?

Şimdiden teşekkürler.
Desteklerinizi talep eder, iyi çalışmalar dilerim.

Not; Açık Excel Dosyasından Kapalı Excel Dosyasına Veri Aktarma.. başlıklı konuma çözüm bulamadığım için farklı bir yöntem ile sorunu çözmeye çalışıyorum.

Sub Makro1()

With Application.FileDialog(msoFileDialogOpen)

.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx;*.xlsm;*.xlsa"
.AllowMultiSelect = False
.Show

If .SelectedItems.Count = 0 Then

        MsgBox "LÜTFEN VERİ ÇEKMEK İSTEDİĞİNİZ EXCEL DOSYASINI SEÇİNİZ"
    Exit Sub
    
End If

kopya = InputBox("KOPYALAMAK İSTEDİĞİNİZ VERİ ARALIĞINI YAZINIZ.", Default:="A2:AA2")
yapistir = InputBox("YAPIŞTIRMAK İSTEDİĞİNİZ HÜCREYİ YAZINIZ.", Default:="A2:AA2")

Application.Workbooks.Open .SelectedItems(1)
Set kaynak = Application.ActiveWorkbook

'kaynak.Sheets("Sayfa1").Range(kopya).Copy
kaynak.ActiveSheet.Range(kopya).Copy ThisWorkbook.ActiveSheet.Range(yapistir)
kaynak.Close False


End With

End Sub

 

[TiOr]

Merhaba,
Yardımlarınızı talep ederim.
Konu günceldir.
İyi günler..