WB.Sheets.Add
    WB.Sheets("Sheet1").Activate
    WB.Sheets("Sheet1").Name = "1"
 Set sht = WB.Worksheets("总表")
    sht.Activate
    WB.Sheets("总表").Activate
    sht.Cells.Activate
  WB.Sheets("总表").Copy
Set sht = WB.Worksheets("1")
   WB.Sheets("1").Activate
  sht.Paste
这句错误，我用了很多方法都出错，我总感觉粘贴和复制都有错误，但是有不知道错误是什么。。。

WB.Sheets.Add
    WB.Sheets("Sheet1").Activate
    WB.Sheets("Sheet1").Name = "1"
Set sht = WB.Worksheets("总表")
    sht.Activate
    WB.Sheets("1").Activate
    sht.Copy WB.Sheets("1")