Как скопировать фрагмент с одного места в другое и чтобы ширина столбцов была такой же, как у исходного фрагмента (фрагмент, который копируется)?
Используйте эти три строки:
Range("A1").PasteSpecial xlPasteColumnWidths
Range("A1").PasteSpecial xlPasteAll
Application.CutCopyMode = False