Hi Betty,

VBA it is

Sub MoveData()
Dim iLastRow As Long
Dim i As Long
Dim iRow As Long

iRow = 1
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow Step 4
Cells(iRow, "A").Value = Cells(i, "A").Value
Cells(iRow, "B").Value = Cells(i + 1, "A").Value
Cells(iRow, "C").Value = Cells(i + 2, "A").Value
iRow = iRow + 1
Next i
Range(Cells(iRow, "A"), Cells(iLastRow, "A")).ClearContents

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Betty Csehi" wrote in message
...
I believe I need a VBA to do what I want. Since I'm not good at VBA, I'm
hoping someone out there can help me out. Here's what I have in Column A:

1)Rent Type
2)Date
3)Category
4)
5)Recourse
6)12/31/04
7)Net
8)
9)Non-Recourse
10) 6/30/05
11) Full

I imported this info and what happened is that the program stacked 3 areas
of info into one column. What I want to do is break that out into 3
separate columns. So Col A will be Rent, Col B will be Type and Col C
will
be Category. The next 3 rows is the associated info.

I can breakout the column headings, but can a formula be written that will
put what is in row 5 under column A, row 6 under col B and row 7 under col
C. It would then skip Row 8, put what is in row 9 under col A, what is in
row 10 under col B and what is in row 11 under col C.

I have approximately 500 rows of data.

Thanks!