Macro para COMBINAR Y CENTRAR, Excel. Ayuda :(

Tengo una Hoja de Excel ("INFORME"), es un pequeño formato  que se llena a partir de una base de datos (en la Hoja1).
El informe se llena haciendo click en un boton en la Hoja1.
¡¡ Lo bueno esque SI SE LLENA !! ...el boton y las instrucciones de llenado funcionan!
LO MALO esque despues de llenarla quiero Combinar y Centrar varios rangos de celdas (uno por uno obviamente) ...es algo asi :
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Private Sub CommandButton8_Click()  <----boton en Hoja1
...( instrucciones de llenado del 'formulario' en hoja1 )...
...( continuan las instrucciones de llenado )...
... ( terminan instrucciones de llenado )....
'''''''ahora COMBINAMOS Y CENTRAMOS No PARTE'''''''
Sheets("INFORME").Range("b5:d5").Select   
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
'''''''ahora COMBINAMOS Y CENTRAMOS Comentarios'''''''
Sheets("INFORME").Range("b28:f28").Select    With Selection
         .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
       .ShrinkToFit = False
       .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
End Sub
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
en la siguiente imagen les pongo las celdas que en teoría deberían Combinarse y Centrarse segun las instrucciones anteriores, pero no funcionan :(

OJALÁ ME AYUDEN, de antemano MIL GRACIAS simplemente por tomarse la molestia de leer el post.