Необходимо упростить макрос, распределяющий данные по листам

[Aicha]

Здравствуйте!
Записала макрос, который распределяет данные с "листа 33" при условии совпадения фамилии из колонки 16 на листы с соответствующими фамилиями.

На листе с данными как правило около 3000 строк, а листов с фамилиями около 40

При выполнении макроса, он ругается "недостаточно системных ресурсов", на меньших объемах работает.

Помогите пожалуйста его упростить.

[Step_UA]

Доброго.
Как вариант ...

Sub Макрос7()
    Filters = Array("Чистова", "Ангелов ", "Василискина", "Виноградова", "Гащанская", "Глазунова", _
        "Головкова", "Гордеев", "Данилина", "Дивеева", "Добренькова", _
        "Дроздова", "Ангелова", "Еранова", "Есехина", "Заблоцкая", "Калугина", "Карпухина", _
        "Козлова Г", "Козлова М", "Колотилина", "Кондратенкова", "Корнеев", "Аносова", "Корсаков", _
        "Краснянская", "Кузьмичев", "Кукушкина", "Кутузова", "Леончева", "Макарова", "Марчук", "Морозова", _
        "Муравлева", "Антосенко", "Никитина", "Орынбаева", "Пахомова", "Петрушкина", "Погребова", "Полякова А", _
        "Полякова С", "Романникова", "Сатарова", "Солодовников", "Архипов", "Титякова", "Тихомирова", "Ткачук", _
        "Устименкова", "Фадеева", "Харибина", "Чернышева", "Шарова", "Швецова", "Бабурина", "Шувалова", _
        "Ядрухин", "Балабанова", "Балан", "Бубенцова")

    Application.ScreenUpdating = False
    Application.EnableEvents = False
    With Sheets("Лист33").UsedRange
        For i = 0 To UBound(Filters)
            .AutoFilter Field:=16, Criteria1:="=*" & Filters(i) & "*", Operator:=xlAnd
            Sheets(Trim(Filters(i))).UsedRange.Clear
            .Copy Sheets(Trim(Filters(i))).Cells
        Next
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

[Aicha]

Здорово!
Вы мне очень помогли и кое-чему научили. А не подскажете, если пойти на 3-х дневные курсы по VBA при МГТУ им. Баумана (3 полных дня), реально научиться разбираться в макросах и самостоятельно решать подобные задачи?

[DiemonStar]

Можно получить знания основ, а дальнейшее развитие будет зависеть от желания и практики. Хотя, как по мне, три дня подряд не помогут - некогда будет нормально осмыслить полученную информацию.