I am not a programmer so please bear with me as I learn VBA.

I am trying to bring data scattered across 7 columns (b,c,d,e,f,g,h) into
column( a).

How would I do this. I know that I need to test for the precense of data in
the column, select it and move it, then move to the next row.

Can I use something like;

For i = 1 to 20 ' number of rows
Select Case Data
Case Column 1
range.offset (0,1)= range.offset(i,1)
etc.
End Select
Next i

Thanks