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 equal to nothing with "". First off the dates move over and convert to a numebr format. I would like to keep them looking as they are. Second, is there an easier method? I tried using
Sheet1.Range(cells(z, c+3), cells(z, c+5)).Copy
then Sheet1.Range(cells(z, c), cells(z, c+3)).Paste
finally Sheet1.Range(cells(z,c+3), cells(z, c+5)).Delete
and when I ran Excel freaked out and summarily did not do what I intended. Can I keep the date format and make a simpler method to shift?
Sheet1.Range(cells(z, c+3), cells(z, c+5)).Copy
then Sheet1.Range(cells(z, c), cells(z, c+3)).Paste
finally Sheet1.Range(cells(z,c+3), cells(z, c+5)).Delete
and when I ran Excel freaked out and summarily did not do what I intended. Can I keep the date format and make a simpler method to shift?