Not sure if I got it totally correct - but try this (untested)

Dim x as long, lrw as long, z ' not sure of variable type for z

x = 16 ' set first row to start
z = "" ' set start value of concatination
lrw = Cells(Rows.Count, "A").End(xlUp).Row ' find last row

Do While x < lrw ' loop until last row is passed
For y = 16 To 1 Step -1 ' loop 16 rows from 16th to 1st
z = z & Cells(x, y) ' concatinate
Next
MsgBox z ' show value
x = x + 16 ' set next loop
Loop


--
steveB

Remove "AYN" from email to respond
"Himu" wrote in message
...
Here is a simplified version of my problem:I have a column of about 1000
numbers, lets say all the numbers are in the column A. I want to take the
first 16 numbers andconcatenate them so that they are arranged like this:
A16A15A14A13A12A11A10....A1. Then I want take the next 16 numbers of the
column and do the same thing. I want to repeat this for the numbers that I
have in that column.

Please help!

HIMU