Q: Move set of cells with some blanks so that set is right aligned In Excel, I have a very big document with a lot of data and I am looking for the best way to move cells.
I have columns A, B, C,  and D, and I want to move them to C, D, E, and F. The problem is that now it is left-aligned, so sometimes there is nothing in the D cell so then it puts those values which should be in D in the C cell. What is the best way to resolve this?
There is a link to a picture about how I mean it:  


A: Give this a try:
Sub dural()
    Dim N As Long, L As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For L = 1 To N
        While Cells(L, "F") = ""
            Cells(L, 1).Insert (xlShiftToRight)
        Wend
    Next L
End Sub

