Макрос для сопоставления 1-й вкладки на нескольких листах

Question

Мне нужна помощь. Я хочу, чтобы макрос копировал, вставлял и сортировал несколько листов в одной папке. приведенный ниже макрос работает отлично, но этот макрос копирует существующую открытую вкладку, а не только первую. Пожалуйста, помогите мне изменить макрос ниже, чтобы скопировать и вставить только первую вкладку на нескольких листах.

Sub CopyMultiple()

    Dim FolderPath As String, Filepath As String, Filename As String

        FolderPath = "D:\Macros\M\"

            Filepath = FolderPath & "*.xlsx*"

                Filename = Dir(Filepath)

                    Dim lastrow As Long, lastcolumn As Long

                        Do While Filename <> ""
                    Workbooks.Open (FolderPath & Filename)
                lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
            lastcolumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
        Range(Cells(2, 1), Cells(lastrow, lastcolumn)).Copy
    Application.DisplayAlerts = False
ActiveWorkbook.Close

erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 5))

Filename = Dir

Loop
Application.DisplayAlerts = True


End Sub