Копирование таблицы с листа на лист

[AesmaDiv]

Есть код, который копирует таблицу с одного листа в определённое место на другой лист.
...
Worksheets("Таблица").Range("A1:L56 ").Copy
Worksheets(Name).Cells(1, i * 13 + 1).PasteSpecial
...
Копирование происходит без сохранения ширины столбцов. Добавление параметра
Paste := xlPasteColumnWidths
не дает нужного результата. Видимо потому, что копируется диапазон, и вставляется в одну ячейку. Пробовал в самом Excel`е, вставка с сохранением ширины столбцов работает только если копируется весь лист. Если копировать только диапазон, вставляется без сохранения ширины столбцов...А очень надо.
Подскажите пожалуйста.

[IgorGO]

for c = 1 to 56
 Worksheets(Name).columns(i*13+c).columnwidth = Worksheets("Таблица").columns(c).columnwidth
next

[AesmaDiv]

Пробовал форматировать таблицу после копирования. Не вариант. Слишком много таблиц и процесс форматирования крадёт время. Поэтому и задался вопросом вставки с сохранением ширины столбцов. Меня интересует почему Paste := xlPasteColumnWidths не работает?

Всё. Ответ найден. Как оказалось expression.PasteSpecial Paste:=xlPasteColumnWidths копирует только ширину столбцов. Т.е. без содержимого ячеек. Поэтому (кагбэ это поиндусски не выглядело) решение следующее:
...
Worksheets("Таблица").Range("A1:L56 ").Copy
Worksheets(Name).Cells(1, i * 13 + 1).PasteSpecial
Worksheets(Name).Cells(1, i * 13 + 1).PasteSpecial Paste:=xlPasteColumnWidths
...