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