Копирование и вставка значений VBA и ColumnWidths вместе

Question

Проблема заключается в вставке скопированного диапазона в другой лист с исходным форматом (например, ширина столбцов источника до целевого столбца). Я попытался включить код «Вставить: = xlPasteColumnWidths» в сочетании с «Вставить: = xlPasteValues». Но это не удалось. Например, запись «.PasteSpecial xlPasteColumnWidths» только не приводит к копированию значений.

  With wq.Sheets("Table 5").Range("A1:W51").Copy
  End With

  With ws.Range("A6")
 .PasteSpecial xlPasteColumnWidths
  End With

Answer 1

Ответ на мой вопрос:

 With wq.Sheets("Table 5").Range("A1:W51").Copy
 ws.Range("A01").PasteSpecial xlPasteAll
 ws.Range("A01").PasteSpecial xlPasteColumnWidths
 ws.Range("A:W").EntireRow.AutoFit
End With