Assuming data in A1 down,
Put in B1:
=INDEX($A:$A,ROW(A1)*8-8+COLUMN(A1))
Copy B1 across 4 cols to E1, then just fill down* until zeros appear,
signalling exhaustion of data.
*to say E820 (as 6500 data rows div by 8 = 813 rows, thereabouts)

Signature
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---
>I am having a problem figuring out a macro to transpose 6500 rows of
> name & address in clumps of 4 rows each in column A separated by 4
[quoted text clipped - 26 lines]
>
> Keith
Max - 25 Oct 2006 06:45 GMT
Required results will appear in cols B to E.
If desired, just select cols B to E, then do an "in-place":
Copy > Paste special > check "Values" > OK
to freeze the values. Then delete col A.

Signature
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---