Macro to format a specific worksheet
This is repeated for each column's width:


Columns("A:A").ColumnWidth



It could just be:

Columns("A").ColumnWidth




The code repeats this block of code almost verbatim twice in a row, with no change in the Selection:


With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .IndentLevel = 0
    .ShrinkToFit = False
    .ReadingOrder = xlContext
    .MergeCells = False
End With



With the only difference being .VerticalAlignment = xlBottom (1st one) and .VerticalAlignment = xlCenter (2nd one).

You should be able to remove one of the two altogether and get identical results, as the 2nd one should overwrite changes made by the 1st one.



This repeats the same command with varying zoom levels:


ActiveWindow.Zoom = 90
ActiveWindow.Zoom = 80
ActiveWindow.Zoom = 70



I would say unless you need to see that is actually zooms progressively, just do ActiveWindow.Zoom = 70 by itself.