VBA to delete cells in a column and shift-left based on the cell's value?

Question

How can I delete cells in column B (and shift-left) if the cell is empty?

Below is what I have but it's giving an "Application-defined or Object-defined error"

Sub DeleteCellShiftLeft()
    For i = 1000 To 1 Step -1
        If (Cells(i, B).Value = "") Then
        Cells(i, B).Delete shift:=xlToLeft
        End If
    Next i
End Sub

Answer 1

A simpler and faster option, using Specialcells(xlCellTypeBlanks):

Sub DeleteCellShiftLeft()  
    dim rng as range  
    for each rng in range("B1:B1000").Specialcells(xlCellTypeBlanks)  
        rng.Delete shift:=xlToLeft  
    next rng  
End sub  

Answer 2

You just need to add quotes around your column reference as follows:

Sub DeleteCellShiftLeft()
    For i = 1000 To 1 Step -1
        If (Cells(i, "B").Value = "") Then
        Cells(i, B).Delete shift:=xlToLeft
        End If
    Next i
End Sub