求助Excel中复制粘贴的宏代码

我通过操作录了一个宏，将A工作薄中的sheet1工作表复制后，打开一个新的空白工作薄B，粘贴到此工作薄中的sheet1中，然后再回到A工作薄中，将sheet2复制到B工作表中的sheet2中，然后才保存B。可问题来了：此宏只能在特定的情况下用一次，即excel程序第一次启动A工作薄复制后，打开的新的B工作薄默认是book1,所以宏代码中也是book1，这一次宏可正确使用。但此次操作后，如不关闭Excel程序，需再次重复这个操作过程的话，却不行了，因第二次复制A工作薄后，再打开新的空白工作薄是book2,而宏中代码却还是book1，此时宏运行出错。故需解决的是，不关闭Excel程序，不管新开的工作薄是book1、book2还是book3..... ,都能正常使用此宏。（因A工作薄是个模板，当往其中输入新的数据后，都要另存为，然后反复使用）。还请高手继续指点迷径。不胜感谢！

我不会定义变量，能否给写出详细的代码过程(CrazymenLu 能给帮忙写出吗？）

你定义一个变量，如TempBook$，将新的空白工作簿的名称赋值给这个变量，然后直接调用就是了

需要代码吗？我会选中b1:d7，右键复制，然后选中b9:d701（可以在名称框里输入b9:d701，回车就选中了），然后回车粘贴。 需要代码的话，我给你写。