Farklı Excell Sayfalarının Tek Sayfa Toplanması

[SeÖzGü]

Merhaba
farklı sayfalar da bulunan excell dosyaların tek sayfada toplanması için formülde aralarda boşluk bırakarak alıyor kodda nereyi düzeltmem gerekiyoır desteklerinizi rica ediyorum

Sub BİRLEŞTİR_KISA()
    Dim AktifDosya As Workbook
    Dim Dosya As Workbook
    Dim DosyaAdi
      
    Set AktifDosya = ActiveWorkbook
  
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = True
        .Title = "Birleştirilecek Dosyaları Seçin"
      
        If .Show Then
            For Each DosyaAdi In .SelectedItems
                Set Dosya = Workbooks.Open(DosyaAdi)
              
                Dosya.Worksheets(1).UsedRange.Copy AktifDosya.Worksheets(1).Range("A65536").End(xlUp)(8, 1)
              
                Dosya.Close False
                Set Dosya = Nothing
            Next
        End If
    End With
  
    Set AktifDosya = Nothing
End Sub

 

[Rheago]

(8, 1)
bu kısmı (2, 1) olarak değiştirmeyi deneyin.