newsheet;  

//loop for column 1 to 10 to calculate the sum value
for (ii=1; ii<=10; ii++)
{
range aa=[book1]sheet1!col($(ii)); 
sum(aa);
double bb=sum.total;

col(A)[$(ii)]=bb; //put the result to the newsheet Column A
}

//New a workbook, and use "SumBook" as Long Name and short name
newbook name:="SumBook" option:=lsname;
//set Column1 longname in the new book
wks.col1.lname$= SumBook1; 

for (ii=1; ii<=10; ii++)
{
range aa=[book1]sheet1!col($(ii)); 
sum(aa);
double bb=sum.total;

[SumBook]sheet1!Cell($(ii),1)=bb; //put the result to the newsheet Column 1
}

newbook name:="SumBook" option:=lsname;
wks.ncols=3; // set the column number in the new book

for (jj=1; jj<=3; jj++)
{
wks.col$(jj).lname$= SumBook$(jj);

for (ii=1; ii<=10; ii++)
{
window -a SumBook;
range aa=[book$(jj)]sheet1!col($(ii)); 
sum(aa);
double bb=sum.total;

[SumBook]sheet1!Cell($(ii),$(jj))=bb; //put the result to the newsheet Column 1
}

}