If your data is consistently 6 rows enter this in B1

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

Copy across to G1.

Select B1:G1 and copy down until you get zeros showing up.

Convert these formulas to values by copypaste specialvaluesokesc.

If you want a macro............enter 6 into InputBox when it appears.

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



Gord Dibben MS Excel MVP


On Sat, 3 Mar 2007 10:10:02 -0800, B.W. wrote:

I am importing a list of names in column form and would like to tranfer them
into Rows.
Name
Address
City
Phone
Fax
Email
I would like it show Name, Address, City, Ph., Fax, Email
Is there a way to make an macro so it may be automatically done when
importing.
I am just getting started at learning how to work with Macros. Any help
would be much appreciated
Thank - You
B.W.