Here is one way from a sub I wrote to fix long formulas. Just tested with
your data.

Sub FixLongFormulas() 'goto a remote area of ws & select 1st line
x = ActiveCell.Row
y = ActiveCell.Column
z = ActiveCell.End(xlDown).Row
For Each C In Range(Cells(x, y), Cells(z, y))
mstr = mstr & C
Next
Cells(x - 1, y) = mstr
End Sub

--
Don Guillett
SalesAid Software

"Lua_uk" wrote in message
...
I have data fro a las file which i have opened in excel. due to the number
of
columns the las file grouped the data line by line instead of column by
colmn. Due to the amount of data it is impractical to change all the data
by
copy & paste:

eg of data what it is like and what I need:

-999.25 -999.25 -999.25 -999.25 -999.25
29.5625 -999.25 -999.25 145.7 51.1411
-999.25 -999.25 51.1411 28.5625 2.4043
1.8379 -999.25 -999.25 -999.25 -999.25
-999.25 -999.25 2.4043 1.8379 -999.25
2.1426 -85.1875

need:

-999.25 -999.25 -999.25 -999.25 -999.25 29.5625 -999.25 -999.25 145.7
51.1411 -999.25 -999.25 51.1411 28.5625

2.4043 1.8379 -999.25 -999.25 -999.25 -999.25 -999.25 -999.25 2.4043
1.8379 -999.25 2.1426 -85.1875