在Daily Dose of Excel上有一个有趣的讨论，指向一个类似的堆栈溢出question。DDoE没有给予一个“解决方案”，但讨论是关于“预期行为”的启发。SO帖子（@DougGlancy）有，但它只是你的代码的一个版本（可能稍微好一点，因为不需要If False Then...构造）。
这里的最佳实践是记住在可以的时候将引用变量设置为Nothing。

Sub test()
    Dim r As Range

    Debug.Print r Is Nothing        ' -> true
    Set r = ActiveSheet.Range("a2")
    Debug.Print TypeName(r)         ' -> Range
    r.Cells.Delete shift:=xlShiftUp

    Set r = Nothing                 ' -> end of problem

    On Error GoTo ErrHandler

    Debug.Print r Is Nothing        ' -> True

    If Not r Is Nothing Then
        Debug.Print TypeName(r)         ' -> Range
        Debug.Print r.Address           ' -> "Err: Object required"
        Debug.Print r.Cells.Count       ' -> "Err: Object required"
    End If

    Exit Sub
ErrHandler:
    MsgBox "Err: " & Err.Description
    Resume Next
End Sub

现在的趋势可能是让scope来处理清理工作（即，一旦Sub完成，r将超出scope），但最好是自己进行清理。

在我的例子中，我没有任何循环，因此For ... Step -1，正如奈杰尔Heffernan所说，不是一个解决方案。
对于这个问题，正确的解决方案将取决于上下文。这是我的：

Sub test()
    'Mi context: from C2 all the cells are empty
    Dim Rng As Range
    Set Rng = ActiveSheet.Range("A2:B2")
    
    'trim all cells in Rng
    Rng = Application.Trim(Rng.Value)
    
    'I use CountIf instead xlCellTypeBlanks because it
    'would give an error if there are no empty cells
    If WorksheetFunction.CountIf(Rng, "") > 0 Then
        'delete all empty cells in Rng
        Rng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
    End If
        
    'Assign Rng again
    Set Rng = ActiveSheet.Range("A2:B2")
    
    'and check again if all cells are empty
    If WorksheetFunction.CountIf(Rng, "") = Rng.Cells.Count Then
        MsgBox """A2:B2"" range have been deleted"
    Else
            
        'do something

    End If
End Sub

在其他上下文中，可以存储初始值 并在删除该范围内的单元格后，与新分配的Rng进行比较