Move data in columns to align them at the bottom

[p45cal]

and another:

Sub blah()
With Range("A1").CurrentRegion
  For Each colm In .SpecialCells(xlCellTypeConstants, 23).Columns
    colm.Cut colm.Offset(.Rows.Count - colm.Rows.Count)
  Next colm
End With
End Sub