SL = SelLeft;
SR = SelRight;

for (x = SR; x > SL; x--) {
  for (y = 1; y <= Bottom; y++) {
    [x-1,y] = [x-1,y] + " " + [x,y];
  }
  DeleteCol(x);
}