Sub Arrrrrghhhhhhhhhhhh()
Dim col, c As Range, i&
col = Array(1, 4, 5, 8, 9, 10, 11, 12)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = LBound(col) To UBound(col)
For Each c In Columns(col(i)).Cells
If Len(c) > 0 Then
If c.MergeCells = False Then
Select Case col(i)
Case 1, 4, 5
c.HorizontalAlignment = xlLeft
c.VerticalAlignment = xlCenter
Case 8 To 12
c.HorizontalAlignment = xlCenter
c.VerticalAlignment = xlCenter
End Select
End If
End If
Next c
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub