Bucle para combinar rango de celdas

Tengo la Siguiente macro:

Range("C19:H19").Select
With Selection
.HorizontalAlignment = xlJustify
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range("C20:H20").Select
With Selection
.HorizontalAlignment = xlJustify
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With

Esta tarea es para repetir el procedimiento un número indeterminado de veces, se que es por medio de un bucle, pero no logro construirlo.

De antemano muchas gracias a quien me pueda dar una mano con este problema que para los que manejan estos temas puede ser sencillo, pero para mi que soy novato es complejo.