Мне нужно объединить эти простые макросы в один макрос

Question

Без лучшего знания о vba Я сделал этот макрос, и он отлично работает. Таким образом, проблема в том, что у меня есть 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") называется LHANA, а следующий макрос PHana ..

ИРабочие листы («ШАНА») - это ЛХАНА и т. Д.

Также поле «Клиент» может содержать лист в 6 столбцах, и «Клиенты» могут меняться.

Смена клиента не имеет значения, я все равно должен сделать рабочую книгу всех клиентов.

У меня нет сообщений об ошибках в этом коде.