Do while not blank macro
 

Hi,

I have a worksheet like below:

I have separated each column with a comma below for the layout ie.
column1,column2,column3

aaa1,bb1,ccc1
, ,ccc2
, ,ccc3
, ,ccc4
, ,ccc5
,bb2,ccc1
, ,ccc2
, ,ccc3
, ,ccc4
,bb3,ccc1
, ,ccc2
, ,ccc3
aaa2,bb1,ccc1
, ,ccc2
, ,ccc3
, ,ccc4
, ,ccc5
,bb2,ccc1
, ,ccc2
, ,ccc3
, ,ccc4
aaa3,bb1,ccc1
, ,ccc2
, ,ccc3
, ,ccc4
, ,ccc5

etc

what I would like is to create the following value to be pasted into another
cell (i.e. A1000)

aaa1=["bb1","ccc1","ccc2","ccc3","ccc4","ccc5","bb2","cc c1","ccc2","ccc3","c
cc4","bb3","ccc1","ccc2","ccc3"]&aaa2=["bb1","ccc1","ccc2","ccc3","ccc4","cc
c5","bb2","ccc1","ccc2","ccc3","ccc4"]&aaa3=["bb1","ccc1","ccc2","ccc3","ccc
4","ccc5"];

I tried to use the do while loop but cannot get this to work, could someone
please point me in the right direction.

Thanks!

Sanj