VBA to merge Excel Worksheets

MergeWorksheets.vb

Sub Macro3()
'
' Macro3 Macro
'
    newSheetName = "MergedSheet"

    On Error Resume Next
    Sheets(newSheetName).Select
    
    If ActiveSheet.Name <> newSheetName Then
        Sheets.Add
        ActiveSheet.Name = newSheetName
    End If
    
    For Each x In Sheets
        If x.Name <> newSheetName Then
            x.Select
            Range("A1").CurrentRegion.Select
            Selection.Copy
            Range("A1").Select
            Sheets(newSheetName).Select
            ActiveSheet.Paste
            Cells(Cells(1, 2).End(xlDown).Row + 1, 1).Select
        End If
    Next
End Sub