Farklı Tablodan Veri Alma Makro Düzeltme

[Rheago]

Merhaba arkadaşlar. Forumda @SeÖzGü adlı arkadaşın kullandığı aşağıdaki makroyu buldum.
Aşağıdaki kodu şu şekilde nasıl modifiye edebiliriz?
Benim seçtiğim excel tablolarında Eğerki isminde ABC yazan varsa, excel tablomdaki "ABC Firması" adlı sayfaya atsın. Eğerki dosya isminde XYZ yazan varsa, excel tablomdaki "XYZ Firması" adlı sayfaya atsın istiyorum.

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)(2, 1)
              
                Dosya.Close False
                Set Dosya = Nothing
            Next
        End If
    End With
 
    Set AktifDosya = Nothing
End Sub

 

[Rheago]

Örnek dosyam ektedir arkadaşlar.

 

[Rheago]

Desteklerinizi bekliyorum arkadaşlar.