count = 0;
for(y=Bottom; y>=2; y--){
  count = count + [5,y];
  if([1,y] == [1,y-1]){
    DeleteRow(y);
  }else{
    [5,y] = count;
    count = 0;
  }
}
[5,1] = [5,1] + count;