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

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

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!

"Don Guillett" wrote:

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