汇总到同一个表格

Sub test()
    Dim rg As Range
    Dim sh As Worksheet
    Dim irow%
    Cells.Clear
    For Each sh In Worksheets
        With Sheets("汇总")
            If sh.Name <> "汇总" Then
              Set rg = sh.Range("a1").CurrentRegion
                irow = .Range("a" & Rows.Count).End(xlUp).Row + 2
                rg.Copy .Cells(irow, 1)
            End If
        End With
    Next
End Sub