将不同工作表的数据汇总到一张表里（工作表每月增加一个）

zealuck

各位好，我现在有个问题：现在有一个工作簿，按照月份每个月生成一个当月数据汇总，我现在想把所有的工作表的数据汇总到一个总表里。如果现在工作表的数目固定，我会做；参考的这个：
Sub 汇总()
    MsgBox "下面将把各班成绩表合并到“总成绩”工作表中!"
    Rows("2:65536").Clear                                       '删除原有记录
    Dim sht As Worksheet, xrow As Integer, rng As Range
    For Each sht In Worksheets                                  '遍历工作薄中所有工作表
        If sht.Name <> ActiveSheet.Name Then
            Set rng = Range("A65536").End(xlUp).Offset(1, 0)    '获得汇总表A列第一个空单元格
            xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1 '获得分表中的记录条数
            sht.Range("A2").Resize(xrow, 7).Copy rng            '粘贴记录到汇总表
        End If
    Next
End Sub

但是，因为每个月增加一个表，我不想每个月都重新把数据清除，只是想在原来的基础上继续添加。如果当月数据还没有完成，一刷新的话，可以把已完成的数据输入 。
请问各位大神有什么办法吗？谢谢大家

zealuck

多年后，又回到了这个问题。大神们请看附件