Вопрос по обходу ячеек в таблице Excel - VB

Формулировка задачи:

Доброго всем дня, вопрос возможно глупый но всё же, нужно обойти и объеденить ячейки в таблице Excel в группы по 10 штук вот код:

blabla()
     Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 
        .AddIndent = False
        .IndentLevel = 
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
     
    Selection.Merge
    Range().
     Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 
        .AddIndent = False
        .IndentLevel = 
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
     
     

Так вот собственно данный код делает то что нужно но только в чётко определённом диапазоне ячеек а мне нужно обойти таким образом кучу ячеек последовательно, тоесть смещаясь по столбцам в право, я понимаю что нужно добавить цикл с перебором но вот как реализовать несовсем догоняю так как неселён в VB подскажите на примере если можно вариант кода.

Решение задачи: «Вопрос по обходу ячеек в таблице Excel»

textual
                            Листинг программы 
                        
                            <font color="blue">Sub</font> Mrg()

<font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>

<font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>100</b></font> <font color="blue">Step</font> <font color="darkblue"><b>10</b></font>
  Range(Cells(<font color="darkblue"><b>2</b></font>, i), Cells(<font color="darkblue"><b>2</b></font>, i + <font color="darkblue"><b>9</b></font>)).Merge
<font color="blue">Next</font>

<font color="blue">End</font> <font color="blue">Sub</font>