for (y1 = 1; y1 <= Bottom; y1++) { for (y2 = 1; y2 <= Bottom; y2++) { if ([1,y2] != "") { for (x = 3; x <= Right; x++) { [x,y1] = replace([x,y1], [1,y2], [2,y2]); } } } }