gistfile1.txt

Sub blah()
Dim rng As Range
With ActiveSheet
    With Intersect(.UsedRange, .Range("B:BZ"))
        .Value = .Value
        For Each cll In .Cells
            If Len(cll.Value) = 0 Then Set rng = Union(cll, IIf(rng Is Nothing, cll, rng))
        Next cll
    End With
End With
rng.Delete xlShiftToLeft
End Sub