I have a sloppy method now. basically I'm scooting over three cells in the same row when the previous three rows are blank. I start with checking if they are blank... Sheet1.Cells(z, c)="" then c+1 and c+2. If blank I copy c+3 to c, c+4 to c+1, and c+5 to c+3. Then I make where I copied from...