Hola SOUTHAMERICA70,
Usted podría substituir simplemente
Columnas (“A: F”). Selecto
Selection.ColumnWidth = 20
con
[a: a] .ColumnWidth = 26.29
[b: b] .ColumnWidth = 13.29
'etc
Usted podría también apenas autofit la gama:
Columnas (“A: F”) .AutoFit
Respetos,
Patrick