Try something like this:

Regards,

David Miller

Sub CombineSheets()
Dim NewBk, CurBk, TermBk As Workbook

Set NewBk = ActiveWorkbook
Set CurBk = Workbooks.Open("C:\CurrentEmployees.xls")
Set TermBk = Workbooks.Open("C:\TermEmployees.xls")

CurBk.Sheets(1).UsedRange.Copy
NewBk.Sheets(1).Range("A1").PasteSpecial
TermBk.Sheets(1).UsedRange.Copy
NewBk.Sheets(1).Range("A" & _
NewBk.Sheets(1).Range("A65536").End(xlUp) + 1).PasteSpecial

CurBk.Close
TermBk.Close

Set CurBk = Nothing
Set NewBk = Nothing
Set TermBk = Nothing
End Sub