ReDim colWidth(Cells.SpecialCells(xlLastCell).Column)
For Count = 1 To UBound(colWidth) ' Читаем ширину колонок
colWidth(Count) = Cells(1, Count).ColumnWidth
Next Count
' Пишем ширину колонок
Cells(1, 1).Resize(1, UBound(colWidth)).ColumnWidth = colWidth