Sayfadaki Veriyi Kopyalayıp Başka Bir Dosyada İstenilen Yere Yapıştırma

[AyYıldızım]

Arakadaşlar aşağıdaki kodlarla, Veri Tabanı dosyamda bulunan userform ile veri tabanı dosyası raporlar sayfasına veri aktarımını yapıyorum, buradanda bu sayfayı Rapor dosyasına yapıştırabiliyorum,

Amacım, kopyalanan bu raporlar sayfasını rapor dosyasındaki sayfada istediğim satırdan itibaren kopyalama yapmasını nasıl sağlamak, burada aynı şekilde kopyalanıyor, mesela bu sayfayı b20 hücresinden itibaren nasıl yapıştırabilirim. Bunun için bu hücre değerinin girileceği bir uyarı penceresi yapılıp değeri girdikten sonra istenilen yerden itibaren yapıştırılması sağlanabilirmi.

Amacım veri tabanı dosyamda bulunan userformlar ile verileri Veri tabanı dosyasındaki sayfalardan kopyalayarak rapor adlı dosyaya alt alta yapıştırılmasını sağlamak, yardımcı olursanız çok sevinirim, saygılar.

Kısacası belli satır aralığındaki verileri başka bir dosyada istediğim satırdan itibaren kopyalamak istiyorum.

tmz = MsgBox("Rapordaki Eski Veriler Temizlenip Yeni Veriler Rapora Aktarılsın mı?", vbYesNo + vbQuestion, "DİKKAT")
If tmz = vbYes Then Sheets("Raporlar").Range("D2:D3,F2:F3,H2:H3,K2,K3,B6:J8,K7,D9,G9,J9,B12:K23").ClearContents
If tmz = vbNo Then MsgBox "Veriler Rapora Aktarılmadı", vbCritical, "UYARI"
On Error Resume Next

Sheets("Raporlar").Range("K2") = CDbl(TextBox1)
Sheets("Raporlar").Range("K3") = TextBox2
Sheets("Raporlar").Range("D2") = ComboBox1
Sheets("Raporlar").Range("F2") = CDbl(ComboBox2)
Sheets("Raporlar").Range("H2") = ComboBox3

Sheets("Raporlar").Range("K7") = CDate(TextBox3)
Sheets("Raporlar").Range("D9") = CDbl(TextBox4)
Sheets("Raporlar").Range("G9") = CDbl(TextBox5)
Sheets("Raporlar").Range("J9") = ComboBox4
.
.
.
.
.
.

If tmz = vbYes Then Sheets("Raporlar").Select
If tmz = vbYes Then MsgBox "Veriler Rapora Aktarıldı, Rapor Sayfasına Gidiniz", vbInformation, "BİLGİ"
If tmz = vbYes Then

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    Workbooks.Open ThisWorkbook.Path & "\" & "Rapor.xlsx"
    Workbooks("Veri Tabanı.xlsm").ActiveSheet.Copy Before:=Workbooks("Rapor.xlsx").Sheets("Sayfa1")
    ActiveSheet.Cells.Copy
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
    ActiveSheet.Name = Range("K3")
    Sheets(1).Select
    [A1].Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.Visible = True

    yol = ThisWorkbook.Path & "\Rapor.xlsx"

    Unload Me
    Workbooks.Open (yol)
Workbooks("Veri Tabanı.xlsm").Hide True
UserForm1.Hide
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End If