insrow=10;                       // insert in 10th place

nrows=wks.nrows+1;

loop (ii,1,wks.ncols) {          // for all columns
%a=%(%h,ii);
%a[nrows]=0/0;                   // insert new cell at the end
temp=%a;
copy -b insrow temp %a -b (insrow+1) -e nrows;
%(%h,ii,insrow)=0/0;             // clear new row
}

del temp; del -v insrow; del -v nrows;