Combination of multiple excel workbooks with multiple sheets (not in a single sheet)

LaSta95 

Try this version:

Sub SplitAB()
    Const lngSplit = 78 ' Column BZ
    Const strA = "MasterA.xlsx" ' Name of first master workbook
    Const strB = "MasterB.xlsx" ' Name of second master workbook
    Dim wbkS As Workbook
    Dim wbkT As Workbook
    Dim wshT As Worksheet
    Dim lngT As Long
    Application.ScreenUpdating = False
    Set wbkS = ActiveWorkbook
    ' Handle A
    wbkS.Worksheets.Copy
    Set wbkT = ActiveWorkbook
    For Each wshT In wbkT.Worksheets
        If wshT.UsedRange.Rows.Count > 1 Then
            wshT.UsedRange.AutoFilter Field:=lngSplit, Criteria1:="B"
            wshT.UsedRange.Offset(1).EntireRow.Delete
            wshT.UsedRange.AutoFilter
        End If
    Next wshT
    wbkT.Close SaveChanges:=True, Filename:=strA
    ' Handle B
    wbkS.Worksheets.Copy
    Set wbkT = ActiveWorkbook
    For Each wshT In wbkT.Worksheets
        If wshT.UsedRange.Rows.Count > 1 Then
            wshT.UsedRange.AutoFilter Field:=lngSplit, Criteria1:="A"
            wshT.UsedRange.Offset(1).EntireRow.Delete
            wshT.UsedRange.AutoFilter
        End If
    Next wshT
    wbkT.Close SaveChanges:=True, Filename:=strB
    Application.ScreenUpdating = True
End Sub