One way

Assuming data is in col A, A1 down, in groups of 6 lines each (as posted)

Put in B1:
=OFFSET($A$1,ROWS($A$1:A1)*6-6+COLUMNS($A$1:A1)-1,)

Copy B1 across to G1,
fill down until zeros appear signalling exhaustion of data

--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----
"Mel" wrote in message
...
Hello!

I have one column of names, address, etc. 6 rows per person...so, every
sixth row is a new person/contact.

I can go down contact by contact and copy/paste special/transpose and
paste
across the board so that each contact info is separated into it's own
column...but there are several hundred contacts...is there a way to
automate
this so that it checks the web/query...paste the new contacts at bottom of
list but in columns not rows..

EX.

My name
Company
address1
address2
work / fax: 1234567890 / 1234567890
email address
new name2
company2
address12
address22
work / fax: 1234567892 / 1234567892
email address2
ETC....

What it should be is
A B C D E
F E
My name Company address1 address2 work / fax: 1234567890 /
new name2 company2 address12 address22 work / fax: 1234567892
/

F G
1234567892 email address2

AND WITH THE WEB QUERY IT WILL AUTOMATICALLY UPDATE AT THE END OF THE
LIST/ROW...

Any suggestions would be great!!! Do not want to have to do this
manually...

Thanks!
1234567890 email address