Copy Existing Sheet, Paste Values from existing workbook into new workbook

[crcline]

I tried the recommendation with debugger popping up.

Here's what I did:
1. Removed the following:

        .SaveAs Application.GetSaveAsFilename(FileFilter:="Excel 1997-2010 Files (*.xlsx), *.xlsx"), 51

2. Added the following in its place:

        .Copy After:=ActiveWorkbook.Sheets("Sheet1")
'Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Sheet1"

Since I am running this macro from WITHIN the reporting workbook, I want to grab the source and copy the selected worksheet before "Sheet1" which I have in my reporting workbook as a placeholder to drop the source sheet after.

It's really close but still getting the 'debugger' - any recommendations to close this loop?

Again, thanks for the help!