Sub Macro1()
Columns("A:A").SpecialCells(xlCellTypeConstants, 23).Copy
Range("B1").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=True _
, Transpose:=True
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Font.ColorIndex = 3
End With
End Sub