Merge cell with blanks below and repeat for entire column.

[kleptilian]

Hello,

I am working on writing a macro to make a report "Pretty" to send out to clients.

I know you should try and stay away from merging with VBA, however I don't have much of a choice as i need to make it simple enough for our users to execute.

I have attached my example. I have the following code to merge the cells, however i don't know how to get it in a macro that will execute the entire column not just the selection.

    Selection.End(xlDown).Select
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Range(Selection, Selection.End(xlUp)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge