Merge worksheets based on sheet name

Sub MatchSheets()
    Dim openName As String
    Dim firstWB As String
    Dim secondWB As String
    Dim firstSheet As String
    Dim secondSheet As String
    Dim sa As String
    Dim x As Integer, i As Integer
    
    firstWB = ActiveWorkbook.Name
    openName = Application.GetOpenFilename("Excel Workbook (*.xls), *.xls")
    Workbooks.Open (openName)
    secondWB = ActiveWorkbook.Name
    
    Workbooks(firstWB).Activate
    
    For i = 1 To ActiveWorkbook.Sheets.Count
        firstSheet = Sheets(i).Name
        Workbooks(secondWB).Activate
        For x = 1 To ActiveWorkbook.Sheets.Count
            secondSheet = Sheets(x).Name
            If firstSheet = secondSheet Then
                Workbooks(firstWB).Activate
                Sheets(i).Select
                Range(Range("A1"), Range("A65536").End(xlUp)).EntireRow.Copy  'if there are headers to skip change "A1" to first Row with data i.e. "A2" or "A5"
                Workbooks(secondWB).Activate
                Sheets(x).Select
                Range("A65536").End(xlUp).Offset(1, 0).Select
                ActiveSheet.Paste
                Exit For
            ElseIf x = ActiveWorkbook.Sheets.Count And firstSheet <> secondSheet Then
                Workbooks(firstWB).Activate
                Sheets(i).Copy After:=Workbooks(secondWB).Sheets(x) 'this will copy unique sheets from the first Workbook to the end of the second Workbook
                Workbooks(secondWB).Activate
            End If
        Next
        Workbooks(firstWB).Activate
    Next
    
End Sub