删除列A或B中的单元格为空的行

Question

这行代码对我有轻微的故障。我打算让此代码循环并删除行，其中行A列中的单元格或列B中的单元格为空。此行包含A列中的客户名称和B列中的客户编号。现在，当我执行脚本时，第一行可以删除，但是从下一个应该删除的行开始，电话号码就会混淆。

请，我只需要以这样一种方式编写参数即可：根据条件提取所有符合条件的行并删除，或者删除任何可能起作用的逻辑，而不会混淆数据谢谢。

注意：如果使用下面的代码进行了更正或升级，我将不胜感激。谢谢

Dim rngRange As Range
    Dim rngUnion As Range
    Dim rngCEll As Range
    Set rngRange = Sheet2.UsedRange.Offset(7)
    For Each rngCEll In rngRange.Columns(1).Cells
        If rngCEll.Value = "" Or rngCEll.Offset(, 1).Value = "" Then
            If rngUnion Is Nothing Then
                Set rngUnion = rngCEll
            Else
                Set rngUnion = Union(rngUnion, rngCEll)
            End If
            End If
    Next rngCEll
    If Not rngUnion Is Nothing Then
        rngUnion.EntireRow.Delete
    End If