谁帮忙看看我这个表怎么汇总啊

access新新新手

Sub 汇总工作薄数据()
    Dim br
    Sheets("汇总").Range("a2:d65536").ClearContents
    br = [{"序号","客户名称","平台名称","应收金额","实收金额"}]
    Range("A1:E1") = br
    Dim sht As Worksheet, xrow As Integer, Rng As Range
    For Each sht In Worksheets
        If sht.Name <> "汇总" Then
            Set Rng = Range("a65536").End(xlUp).Offset(1, 0)
            xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1
            sht.Range("a2").Resize(xrow, 5).Copy Rng
        End If
    Next
End Sub