For each c in range("a2"a800")
c.value= c & " " & c.offset(,1)
next c
columns(2).delete

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ub" wrote in message
...
Hi
I have data in approx 800 lines as:Column A Column B
Cook Mark
Jones Peter

Column A has last name, Column B has first name.
I want to joing data of 2 columns to show Firstname Lastname in ColumnA
and
then delete Column B

Please advise how to write this code