Не отрабатывает цикл в макросе

[siv14]

Добрый день!
Помогите разобраться с ошибкой. Создал макрос заполнения листов книги из листа "Temp". Сделал два цикла, внешний и внутренний. Внешний отрабатывает, заполняет "шапку", а внутренний - заполнение данными не работает. Пример во вложении. Подскажите, что не так.

[IgorGO]

добавте в начало строки ':

' Sheets(iSheetName).Select

[siv14]

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

добавте в начало строки ':

Спасибо, это помогло. Но после отработки макроса данные вставлялись в те же ячейки, в которых находились на листе "Temp", а надо чтобы переносимые данные начинались с 5 строки на каждом листе. Загвоздка здесь: Worksheets("Temp").Range("B" & n).Value, но как исправить?

[IgorGO]

полагаете кто-то кроме Вас (и, возможно, нескольких просветленных) знает что должен делать этот макрос?

у нас задача:
1. максимум - угадать что Вы думали, (минимум - угадать что должен делать макрос)
2. исправить макрос в соответствии с п.1.

переносите тему в ветку "Экстрасенсы" - там все сделают, но будьте готовы, что люди со сверхчеловеческими способностями начнут сканировать Ваши мысли, не думайте ничего такого, за что будет потом перед ними стыдно.

[siv14]

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

...не думайте ничего такого, за что будет потом перед ними стыдно.

А это к чему?!

[alex77755]

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

добавте в начало строки ':

' Sheets(iSheetName).Select

Не лучший вариант решения.
Лучше вообще выкинуть все Selectы!
Работайте с объектными переменными
Начало процедуры будет такое:

Dim ST As Worksheet, Si As Worksheet
Set ST = Worksheets("Temp")
With ST
    li = .Cells(.Rows.Count, 9).End(xlUp).Row     'Столбец I
    Lq = .Cells(.Rows.Count, 17).End(xlUp).Row    'Столбец Q
End With

  For i = 10 To Lq
    iSheetName = Range("Q" & i).Value
    
    For Each iSheet In Worksheets
        If iSheet.Name = iSheetName Then
            With iSheet