Gerry

Easiest and quickest is with a macro but note the formulas methos posted at
bottom.

Sub ColtoRows()
Dim Rng As Range
Dim I As Long
Dim j As Long
Dim nocols As Long
Set Rng = Cells(Rows.Count, 1).End(xlUp)
j = 1
On Error Resume Next
nocols = InputBox("Enter Number of Columns Desired")

For I = 1 To Rng.Row Step nocols
Cells(j, "A").Resize(1, nocols).Value = _
Application.Transpose(Cells(I, "A").Resize(nocols, 1))
j = j + 1
Next
Range(Cells(j, "A"), Cells(Rng.Row, "A")).ClearContents

End Sub

You do not really need a macro to accomplish your task BTW.

In B1 enter this formula................

=INDEX($A:$A,(ROWS($1:1)-1)*6+COLUMNS($A:B)-1)

Copy across to Column E then select B1:G1 and copy down untill you get zeros.


Gord Dibben MS Excel MVP

On Mon, 04 Jun 2007 10:58:53 -0700, "
wrote:

XL 2003

I have about 150 groups that I would like to put into rows in Excel...
1 row/group.

They are like this:

WOODSTOCK & DISTRICT BIG BROTHERS ASSOC. INC.
378 Hunter St
Woodstock, ON N4S 4G2
(519) 539-7469

www.bigbrotherswoodstock.ca

BIG BROTHERS BIG SISTERS OF YORK
PO Box 126, 145 Main St. S
Newmarket, ON L3Y 3Y9
(905) 895-0289

www.bbbsy.ca

There are tabs at the end of each and every line.
(or if I paste the data unformatted, there are returns at the end of
each and every line.)

I would like 1 row and 6 columns per group. I know I can copy and
paste special transpose each group but I have lots of them!
Is there an easier way to do this?

...Lisa