right click the sheet tab and choose view code. if you don't see a code window,
double click the sheet name on the left under project
paste the code in the code window

then tools/macro/macros or ALT-8

and run the macro

--


Gary


"bryan" wrote in message
...
and what do I do with this jumble

"Tom Ogilvy" wrote:

Sub RearrangeData()
Dim rng As Range, ar As Range
Dim cell As Range, i As Long
Set rng = Columns(1).SpecialCells(xlConstants)
For Each ar In rng.Areas
i = 1
For Each cell In ar
If i < 1 Then
cell.Offset(-(i - 1), i - 1).Value = cell.Value
cell.ClearContents
End If
i = i + 1
Next cell
Next ar
Columns(1).SpecialCells(xlBlanks).EntireRow.Delete
End Sub

--
Regards,
Tom Ogilvy


"bryan" wrote in message
...
I have a spreadsheet with 1500 entries in one column A. Each entry consist
of 4 lines of data and a space. I need to move the 2nd, 3rd and 4th lines
to
columns b,c,d. and to delete the space between entries.

example:

John Doe
1234 lost street
Chicago, IL 60055
555-555-1212

Jane Doe
4321 Lost Street
Chicago, IL 60055
555-555-1212

changed to:

John Doe 1234 lost street Chicago, IL 60055 555-555-1212
Jane Doe 4321 lost street Chicago, IL 60055 555-555-1212