yedekleri birleştirmek

[muhsar]

Sub yedekalformülsüz()
 Application.ScreenUpdating = False
    Dim syf As Worksheet
    Dim filePath As String
    For Each syf In ThisWorkbook.Worksheets
        syf.Cells.Copy
        syf.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next
    Application.CutCopyMode = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    filePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    ThisWorkbook.SaveAs filePath & Format(Date, "dd-mm-yyyy") & ".xlsm", FileFormat:=52
    Application.EnableEvents = True
    Application.DisplayAlerts = True
     Application.ScreenUpdating = True
End Sub

iyi bayramlar;yukarıdaki kod ile çalışma kitabımın günlük yedeğini günün tarihi adı ile alıyorum. yapmak istediğimi konu hergün aldığım yedekler aynı klasör içerinde bulunuyor.bir kod ile bu yedeklerdeki seçeceğim çalışma sayfalarını tek bir çalışma kitabında birleştirmek istiyorum.örneğin klasördeki çalışma kitaplarında bulunan xxx isimli sayfaları alt alta birleştirmek istiyorum

 

[muhsar]

Sub yedekalformülsüz()
Application.ScreenUpdating = False
    Dim syf As Worksheet
    Dim filePath As String
    For Each syf In ThisWorkbook.Worksheets
        syf.Cells.Copy
        syf.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next
    Application.CutCopyMode = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    filePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    ThisWorkbook.SaveAs filePath & Format(Date, "dd-mm-yyyy") & ".xlsm", FileFormat:=52
    Application.EnableEvents = True
    Application.DisplayAlerts = True
     Application.ScreenUpdating = True
End Sub

iyi bayramlar;yukarıdaki kod ile çalışma kitabımın günlük yedeğini günün tarihi adı ile alıyorum. yapmak istediğimi konu hergün aldığım yedekler aynı klasör içerinde bulunuyor.bir kod ile bu yedeklerdeki seçeceğim çalışma sayfalarını tek bir çalışma kitabında birleştirmek istiyorum.örneğin klasördeki çalışma kitaplarında bulunan xxx isimli sayfaları alt alta birleştirmek istiyorum

Sub yedekalpc()
Dim filePath As String
Application.EnableEvents = False
Application.DisplayAlerts = False
filePath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
ThisWorkbook.SaveAs filePath & Format(Date, "dd-mm-yyyy") & ".xlsm", FileFormat:=52
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

yedek aldığım kod budur.ilk yazdığım kodu dikkate almayın lütfen