Query on selection.column

[Dreamer]

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

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

[Bob Phillips]

Is this what you mean

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

[Dreamer]

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