如何设计vba一键合并多个单元表

979595410

一个簿里面有31个表，如何设计vba一键合并，每个表的排版一样的，数据从b5开始，每个表的名称从1号到31号，如何在汇总表里汇总1-31号的数据，因为公司电脑不能链接外网所以上传不了表，

wanxiaoninghome

https://jingyan.baidu.com/article/19020a0ad8080d529d28422a.html
网上一搜代码一堆

979595410

大神你好 能不能帮我修改一下这个代码，可以把这代码汇总页的位置在a7开始汇总，指定的工作表改为鼠标点选择工作表
Sub 合并指定单元格()
    Dim sh As Worksheet, ar
    Application.ScreenUpdating = False
    With Sheet7
        .[a2:g500].ClearContents
        For Each sh In Sheets(Array("表1", "表2", "表3", "表4"))
            ar = sh.Range("A2:G" & sh.[a65536].End(3).Row)
            lr = .[a65536].End(3).Row + 1
            .Range("A" & lr).Resize(UBound(ar), UBound(ar, 2)) = ar
        Next
    End With
    Application.ScreenUpdating = True
End Sub