Combining second row to first row

L

LisaJ27

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
 
D

Don Guillett

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
 
L

Liz

The macro below works well however it deletes out some of the data I need in
other columns. What do I need to do to the macro to adjust? Thanks!
 
Top