Excel 如何将宏组合成一个宏？

我在一个工作簿中有10个不同的工作表，每个工作表都有需要按客户列筛选并复制到另一个工作簿的表

如何将这些宏组合成一个宏，这样我就不必将该宏相乘20-30次，就可以将每个工作表中的所有筛选数据都放到另一个工作簿中

Sub sheet1()

    Dim LastRow As Long
    Dim ws As Workbook

    Sheets("SHANA").Activate

    LastRow = Range("A1").CurrentRegion.Rows.Count

    Range("A1:j" & LastRow).Select

    Selection.AutoFilter Field:=5, Criteria1:="customerA"

    Selection.Copy

    Set ws = Workbooks.Open("C:\Users\...test.xlsx")
    Worksheets("SHANA ").Paste

    Selection.AutoFilter

    Application.CutCopyMode = False

    ws.Save

End Sub

下一个宏是相同的，只是子表1是2，依此类推

工作表（“SHANA”）称为拉纳，下一个宏PHANA和工作表（“SHANA”）称为拉纳，等等

此外，客户字段可以在6列中显示一些表格，并且客户可以更改

客户更改并不重要，因为所有客户都有自己的工作簿

我在代码中没有错误消息