VBA删除列中的单元格并根据单元格的值向左移位？

Question

如果单元格为空，如何删除B列（和左移）中的单元格？

以下是我所拥有的内容，但它提供了一个＆＃34;应用程序定义或对象定义的错误＆＃34;

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