Olá! SOUTHAMERICA70,
Você poderia simplesmente substituir
Colunas (“A: F”). Seleto
Selection.ColumnWidth = 20
com
[a: a] .ColumnWidth = 26.29
[b: b] .ColumnWidth = 13.29
'etc.
Você poderia igualmente apenas autofit a escala:
Colunas (“A: F”) .AutoFit
Considerações,
Patrick