Query on selection.column

Dear All,

I want to merge the data of column B with the selected column
(I use the cursor to point it), I know the usage .Range(Selection.Column & I)
is not correct... May I know how should I correct it? THX

Code:

---

With activesheet
For I = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
 ...........
.Range("B" & I) & " " &.Range(Selection.Column & I) <-----
.............
End If
Next I
End with

---

Is this what you mean

Code:

---

.Range(.Cells(I, "B"), .Cells(I, Selection.Column)).MergeCells = True

---

Yes..
It's okay now when I use cells... Thanks!