Copy Multiple Workbooks into One

[sirmacademy]

Hello, I need to write the VBA code make this easy. Range of A1:AN81 will put into or copy at the Range A+81. They are in the same folder. Thanks in advance.

Please see the code below.

Sub CopyPasteMultipleWorkbooks()
Workbooks.Open Filename:= _
"G:\My Drive\2018-2019 SF1\Grade 7\SF1_2018_Grade 7 (Year I) - ACACIA.xls"
Range("A1:AN81").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Consolidate Practice.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste

Workbooks.Open Filename:= _
"G:\My Drive\2018-2019 SF1\Grade 7\SF1_2018_Grade 7 (Year I) - ALMOND.xls"
Range("A1:AN81").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Consolidate Practice.xlsm").Activate
Range("A" & 81).Select
ActiveSheet.Paste

Workbooks.Open Filename:= _
"G:\My Drive\2018-2019 SF1\Grade 7\SF1_2018_Grade 7 (Year I) - BREADFRUIT.xls"
Range("A1:AN81").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Consolidate Practice.xlsm").Activate
Range("A" & 162).Select
ActiveSheet.Paste

End Sub

 

[mumps]

Place this macro in a standard module in the "Consolidate Practice.xlsm" workbook. Change the sheet name (in red) to match the name of the sheet where you want to paste the data.

Sub CopyPasteMultipleWorkbooks()
    Application.ScreenUpdating = False
    Dim desWS As Worksheet, wbArray As Variant, i As Long
    wbArray = Array("SF1_2018_Grade 7 (Year I) - ACACIA.xls", "SF1_2018_Grade 7 (Year I) - ALMOND.xls", "SF1_2018_Grade 7 (Year I) - BREADFRUIT.xls")
    Set desWS = ThisWorkbook.Sheets("[COLOR="#FF0000"]Sheet1[/COLOR]")
    For i = LBound(wbArray) To UBound(wbArray)
        Workbooks.Open Filename:="G:\My Drive\2018-2019 SF1\Grade 7\" & wbArray(i)
        Range("A1:AN81").Copy desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1, 0)
        ActiveWorkbook.Close False
    Next i
    Application.ScreenUpdating = True
End Sub