try this

Sub moverow()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -2
Range(Cells(i, 1), Cells(i, 10)).Copy Cells(i - 1, 2)
Rows(i).Delete
Next
End Sub

--
Don Guillett
SalesAid Software

"LisaJ27" wrote in message
...
How do I make this:

John Edwards
24 Main St NY NY 08000
(all data is in seperate cells)

Look like this:

John Edwards 24 Main St NY, NY 08000
(Each cell moved to top line)

There are multiple rows of this data. Thanks