Hi Bryan

Assuming there is no column A heading, try....

Sub Test()
Application.ScreenUpdating = False
With ActiveSheet
..Range("1:3").Insert Shift:=xlDown
..Range(.Range("A2"), .Range("A2").End(xlDown).Offset(-1, 0)).Delete
Shift:=xlUp
..Range("A:A").Copy .Range("B1:D1")
..Range("B1,C1:C2,D1:D3").Delete Shift:=xlUp
..Range("A:A").SpecialCells(xlCellTypeConstants, 23).Offset(1,
0).EntireRow.Delete
..Range("1:1").ClearContents
End With
Application.ScreenUpdating = True
End Sub

--

Regards

William

XL2003




"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