Maybe:
Sub amielb()
Dim wsA As Worksheet
Dim wsB As Worksheet
Set wsA = Workbooks("File A.xlsm").Sheets("Sheet1")
Set wsB = Workbooks("File B.xlsm").Sheets("Sheet1")
wsA.Activate
wsA.Range(Cells(2, 1), Cells(wsA.UsedRange.Rows.count + 1, wsA.UsedRange.Columns.count + 1)).Copy Workbooks("Consolidated File.xlsx").Sheets("Sheet1").Range("A" & Rows.count).End(3)(2)
wsB.Activate
wsB.Range(Cells(2, 1), Cells(wsB.UsedRange.Rows.count + 1, wsB.UsedRange.Columns.count + 1)).Copy Workbooks("Consolidated File.xlsx").Sheets("Sheet1").Range("A" & Rows.count).End(3)(2)
End Sub
Bookmarks