Вставка с транспонированием

[rusttemm]

Добрый день! Пожалуйста помогите "зациклить" последовательную вставку новых данных в таблицу. Макрорекордером записал код (Module3) вставки данных из листа "Label" на лист "Database". Не могу добиться вставки на следующую строку таблицы, происходит замена имеющейся строки. Код в Module1 работает, но выскакивает из таблицы.

[kuklp]

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

Sub Макрос2()
    Range("B3:B13").Copy
    Sheets("Database").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End Sub

[rusttemm]

Спасибо за отклик KukIp!
Данные вставляются, но не в таблицу, а под нее!?

Можно посмотреть...

[kuklp]

Вы как и где сохраняете файлы? У меня не открываются, выдают ошибку см. скрин.

[rusttemm]

У меня Excel2010. Изначально файл был с расширением .xlsm. Чтобы вложить его к теме пришлось сохранить как .xls.  Я думаю проблема из-за этого.

Попробуйте скачать файл на webfile.ru, номер файла 6056487 (в webfile.ru номер вставить в поле "Файл номер", далее скачать его). Там он с расширением .xlsm.

[kuklp]

И кто не давал его в рар или зип закатать? Вместо этого я должен гасать по хостингам, чтоб Вам помочь. Душевно.

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

Sub Макрос2()
    With Worksheets("Database").ListObjects("Таблица2").ListRows.Add
    .Range = Application.Transpose(Sheets("Label").Range("B3:B13"))
    End With
End Sub

[rusttemm]

Спасибо, все работает!
Про .rar и .zip, извените, был не вкурсе!