Use the Range selection and cells to select the anchor and the range extent.
So......

Range(Cells(r, c1), Cells(r, c2)).Select

where c1 = first column and c2 increments to extend range to the right.

Cheers
Nigel

"Demyan" wrote in message
...
Hi,
I need to repeatedly select a cell by its index (e.g. Cells(r,1) with a
loop
over r), and merge it with the cell to the right. Could you please tell me
how it can be done? (Can I select the cell, and then expand Selection to
the
right?)
Thank you very much!