1. enter the following small udf:

Function concat(r As Range) As String
Dim rr As Range
concat = ""
For Each rr In r
concat = concat & rr.Value
Next
End Function

2. click on column A and Insert Column this will result in a new un-used
column
3. click on the new A1 and enter =concat(B1:IV1)
4. copy down as far as necessary


finally locate and delete any empty rows
--
Gary''s Student


"Prixton" wrote:

Hi,

We get a lot of information that comes into different columns, say Product
1 - 88. We never know how many values there are in every colum or how many
Products there are

Now we want a macro that puts all the values into one column, say A - can be
in sheet 2. We do not want empty rows or columns but it is very important
that the figures are in the original order.

Regards