for (y = Bottom; y >= 1; y--) {
  count = [40,y];
  if (count > 1) {
    // 行を複製する一番下の行
    b = y + count - 1;
    
    // 範囲選択して InsRow() で複数行挿入
    // Cassava Editor 1.9.4 現在、InsertRow() を複数回実行するより速い。
    SelTop = y + 1;
    SelBottom = b;
    InsRow();

    // 挿入した行に元の行のデータをコピー
    for (y2 = y + 1; y2 <= b; y2++) {
      for (x = 1; x <= Right; x++) {
        [x,y2] = [x,y];
      }
    }
  }
}