Темы

Всем привет. Только только начинаю знакомиться с VBA, возник вопрос.
Стоит задача разбить книгу по листам, для этого на просторах интренета нашел готовый макрос(надстройку)
Все работает, но хочу добавить процедуру шаг "скопировать диапазон с заданного листа, и вставить в активный лист", в коде отметил красным то что добавляю.
Понимаю что сделал неправильно, так не работает, направьте пожалуйста на путь истинный

Код (vb) Выделить Развернуть

            End If

               'копируем фрагмент данных на новый лист
               Range(tws.Cells(startrow, 1), tws.Cells(i, rngData.Columns.Count)).Copy
               outws.Range("B1").PasteSpecial , Transpose:=True
               
               'Тестовое
               
               Sheets("Тех").Select
               Range("A1:A44").Select
               Copy Destination:=outws.Range("A1")
               
               
               'переносим ширину столбцов
               Range(tws.Cells(startrow, 1), tws.Cells(i, rngData.Columns.Count)).Copy
               outws.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
               startrow = i + 1
               
               'добавляем шапку, если нужно
               If chkHeader Then
                   outws.Rows("1:" & hr).Insert Shift:=xlDown
                   tws.Rows("1:" & hr).Copy Destination:=outws.Cells(1, 1)
               End If
           End If
       Next i
   End If
[admin]Коды оформляйте тегами VBCode. п.п. 4.25 Правил форума[/admin]