Option Explicit

Sub test()
    Dim intI As Integer
    Dim ws1 As Worksheet
    Application.ScreenUpdating = False
    Set ws1 = Worksheets(Worksheets.Count)
    For intI = 1 To Worksheets.Count - 1
    Worksheets(intI).Range("A2:E" & Worksheets(intI).Cells(Rows.Count, 1).End(xlUp).Row).Copy _
        ws1.Range("A" & ws1.Cells(Rows.Count, 1).End(xlUp).Row + 1)
    Next
    Application.ScreenUpdating = True
End Sub