Move cells to the left

**martinez_pedro** · 05-31-2011, 05:14 PM

Move cell contents to the left side in columns D, E, F, G. (Phone numbers)
So let’s say that a cell on column D is empty and but the cell to the right E has a phone number i would like to have the number on the cell of column D
So basically within the columns D, E, F, and G. i want all the phone number to the left without affecting any other columns.
Any help with this I appreciated
I also attach a sample spreadsheet for better understanding Thankyou

**Colin Legg** · 05-31-2011, 05:43 PM

Cut columns D:G and paste them into columns M:P.
With columns M:P still selected press F5 > Special > Blanks > OK.
Right click > Delete > Shift Cells Left
Cut columns M:P and insert them back into D:G again.

**stnkynts** · 05-31-2011, 06:31 PM

A macro way.

Option Explicit

Sub ShiftPhoneNumber()
Dim lastrow As Long
Dim icell As Long

lastrow = Range("A" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False
For icell = 2 To lastrow
    If IsEmpty(Range("D" & icell)) Then
        If IsEmpty(Range("E" & icell)) Then
            If IsEmpty(Range("F" & icell)) Then
                Range("G" & icell).Cut Destination:=Range("D" & icell)
            Else
                Range("F" & icell, "G" & icell).Cut Destination:=Range("D" & icell)
            End If
        Else
            Range("E" & icell, "G" & icell).Cut Destination:=Range("D" & icell)
        End If
    Else
    End If
Next icell
Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub