klasörden aynı sayfaları dosya adıyla kopyalama

[todooinexcel]

merhabalar,

mevcut kodlar üzerinden makro öğrenmeye çalışıyorum. forumdaki birleştirme üzerine olan konuları inceledim ama bir yerde tıkandım.
istediğim şu, seçtiğim klasör içerisindeki farklı isimli dosyalardan Sayfa2 adlı sayfaları kopyalayıp, kopya alınan dosya adını o sekmeye vermek.

Sub Birleştir()
Dim Filename As String
Seçici
Filename = Dir(Path & "*.xlsm")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheets("Sayfa2").Copy After:=ThisWorkbook.Sheets(1)
     Dim LArray() As String
     LArray = Split(Filename, ".")
     Sheets(2).Name = LArray(0)
    
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Sub Seçici()
Dim kaynak As String
Set klasor = CreateObject("shell.application").BrowseForFolder(0, "Dosyalarin bulundugu Klasoru Secin", 50, &H0)
If Not klasor Is Nothing Then
Path = klasor.SELF.Path
End If
End Sub