Loop for merging cells

[iink]

Hello,

I have a list of cells that I need to merge

B27:E27 to B150:E150.

Using:

Range("B27:E27").select
selection.merge
Range("B28:E28").select
selection.merge
etc... down to
Range("B150:E150").select
selection.merge

I can merge the cells, however, this is quite lengthy and irritating to type out. I was wondering if there is a simple loop that I can use to run through each individual range and combine them. The cells that I will be merging have repeat data so I just need it to run through the range and automatically proceed through the warning statement. here is a picture of the statement I would like it to proceed through: http://i.imgur.com/sBe2h.jpg if it is possible.

Any help would be greatly appreciated. Thanks!

 

[VoG]

Maybe like this

For i = 27 To 150
    Range("B" & i).Resize(, 4).Merge
Next i

 

[jim may]

This Seems to work...

Sub Macro1()
    With Range("B27:E27")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
        .Select
    End With
    Selection.AutoFill Destination:=Range("B27:E150")
End Sub

 

[iink]

Thanks a bunch to both of you!