求解：运行后汇总不到总表里

Sub Comb()
Dim i%
On Error Resume Next
Sheets(1).Select
Worksheets.add'新建一个工作表
Sheets(1).Name = "汇总工作表" '对新建工作表重命名
For i = 2 To sheet.count'For循环，遍历所有工作表
Sheets(i).Activate '激活工作表
Range("a1").Select
Selection.CurrentRegion.Select'选择活动工作表数据区域
selection.copyDestination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中
Next
MsgBox ("工作表已全部合并到指定工作表中！") '弹窗提示合并完成
End Sub