Empty cells

[asudevils5150]

How do I move cells with text over to Column B and columns following. For instance, I have data in Cells B1:d7. Then the next set of data are in e8:g20. How do I move all the data starting at e8 to b8:d20. Also, the next set is h21:j30, so I want to move h21:j30 to B21:d30. Thank you all again for your help.

 

[Oaktree]

If I understand your question correctly, select B8:D20, right click in the selected area, choose "delete" and select "shift cells left".

Then, select B21:G30 and follow the same steps.

 

[asudevils5150]

You are correct, but my problem is that i have this "staggering" for about 20000 rows. So imagine cells from column a-d, then e-g, then s-t, then the fifth row would be back to say c-f. Don't ask me how the data got like this, but i would like to shove all the data so that the first column for the data would be in Column A. Thanks for your help.

 

[Oaktree]

Try:

For i = 1 To Range("B1").SpecialCells(xlCellTypeLastCell).Row
If Range("B" & i) = "" Then
Range("B" & i & ":" & Range("B" & i).End(xlToRight).Offset(0, -1).Address).Delete Shift:=xlToLeft
End If
Next i