try this idea

Sub combinecolumns()
lr = Cells(Rows.Count, "i").End(xlUp).Row
For Each c In Range("i2:i" & lr)
c.Value = c & ", " & c.Offset(, 1)
Next c
Range("j2:j" & lr).ClearContents
'or columns("J").delete
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Steved" wrote in message
...
Hello from Steve Dee

In column A I have Smith
In Column B I Have Brian

Can I add text from Col B to Col A to have Smith Brian

Thankyou.