Try this

dim c as range
dim rng as range
set rng=range("A1").currentregion
i=3000
for each c in rng
if not isempty(c) then
cells(i,1)=c
i=i+1
end if
next
rows(1:2999).delete 'if you want

"GaryG" wrote in message
...
Sorry not all rows have the 256 columns populated, most have only 1
column
per row, however 1 or 2 have 256 columns.

It should only amount to about 7000 data cells.

"Ardus Petus" wrote:

256 columns X 2000 rows = 640000 rows. That's far above Excel limits!

--
AP

"GaryG" a écrit dans le message de
...

Cheers Martin but the HLOOKUP doesn't help me.

What i am trying to end up with is all my data cells to appear in one
complete column. Now i have data spread across rows & columns
similar to
data in a matrix.

Another way of looking at it is that i need the data in column B to
appear
under the data currently in ColumnA, then Column C data to appear
under
this & so on.

I can do it manually but i have 256 columns of data so looking for a
quick
way.

"MartinW" wrote:

Hi Gary,

Your problem is not very clear from your post. Are you trying to
rotate
all
your data from rows to columns? If that is the case you could just
leave
it
as is and use HLOOKUP.