Как зациклить макрос?

[kapitel_bc@ukr.net]

Здравствуйте, знатоки.
Необходимо, переносить данные из нескольких открытых книг в одну. Количество книг не постоянное. "Склеивание" книг не подходит - макросы не сохраняются.
Сбацал такой код:

Windows(2).Activate
Range("A1:C3").Select
Selection.Copy
Windows("Protocol.xls").Activate
Sheets(2).Select
Sheets.Add
ActiveSheet.Paste
Windows(2).Activate
ActiveWindow.Close

Windows(2).Activate
Range("A1:C3").Select
Selection.Copy
Windows("Protocol.xls").Activate
Sheets(3).Select
Sheets.Add
ActiveSheet.Paste
Windows(2).Activate
ActiveWindow.Close

и т.д.

абсолютный повтор кроме строчки отмеченой красным
Как сделать, что бы макрос отключался при закрытии всех книг?

[motorway]

Если использовать цикл, то выполнение кода закончится само по достижении последнего прохода цикла

[kapitel_bc@ukr.net]

Сообщение от motorway

Если использовать цикл, то выполнение кода закончится само по достижении последнего прохода цикла

Спасибо, я б его использовал, кабы мог прописать...

[sasha_prof]

Сообщение от kapitel_bc@ukr.net

Спасибо, я б его использовал, кабы мог прописать...

Мне кажется здесь поможет
For i to n
next n

i - текущая книга книга
n - последняя книга

[kapitel_bc@ukr.net]

Сообщение от sasha_prof

Мне кажется здесь поможет
For i to n
next n

i - текущая книга книга
n - последняя книга

Наверное, кому-то точно поможет, но я даже не представляю куда это прописать. Но, все равно спасибо, за сочувствие

[sasha_prof]

Сообщение от kapitel_bc@ukr.net

Наверное, кому-то точно поможет, но я даже не представляю куда это прописать. Но, все равно спасибо, за сочувствие

прикрепляйте файлы, и распешите с каких в какой

[kapitel_bc@ukr.net]

Уже, прикрепил. Все книги в один лист. В книгу "Protocol" должны попадать данные из книг 1,2...4....

[kapitel_bc@ukr.net]

Всем большое спасибо.
Нашел подходящий макрос, переделал. Кажется работае, сейчас буду тестить