I've already got that, and it isn't working:
Range("A1:J" & oldRowCount).Select
Application.CutCopyMode = False
Selection.Copy
Windows("Report.xls").Activate
Sheets("Totals").Select
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Columns("A:J").AutoFit
' close the data workbook
Windows(aWB).Close False
Edit:
got it, by moving the code
Range("A1:J" & oldRowCount).Select
Selection.Copy
Windows("Report.xls").Activate
Sheets("Totals").Select
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Columns("A:J").AutoFit
Application.CutCopyMode = False
' close the data workbook
Windows(aWB).Close False