VBA代码不是在正确的工作簿中复制和粘贴

I have the following code shown below that allows me to save a copy of a workbook as an XLSX file with a file name that is different each time the code is ran. The code works to save the file correctly with the correct name. However, when it comes to the part where it should be copying and pasting the data in the new file as values it doesn't do it to the new file, only the original. My goal is to have a copy of the original file that does not have any macros or queries in it.I have the following code shown below that allo