[Excel] Combines all Worksheets into a new Worksheet

[Excel] CombineSheets

Sub CombineSheets()
    Dim I As Integer
    
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add
    Sheets(1).Name = "Combined"
    
    Sheets(2).range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).range("A1")
    
    For I = 2 To Sheets.Count
        Sheets(I).Activate
        range("A1").Select
        Selection.CurrentRegion.Select
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
        Selection.Copy Destination:=Sheets(1).range("A65536").End(xlUp)(2)
    Next

End Sub