Excel VBA-使用For循环删除空白

Question

我正在使用以下代码检查C列中的空白单元格，并在找到时删除整行。它可以正常工作，除非连续有多个空白，因为它需要多次通过以确保所有空白均被清除。我如何修改代码，以便只需要一次通过就可以删除行。大约需要19万行。

With ActiveSheet.UsedRange
    lastRow = .Rows(.Rows.Count).Row
End With

For Each Cell In Sheet2.Range(Cells(1, 3), Cells(lastRow, 3))
        If Cell = "" Then
            Cell.EntireRow.Delete
        End If
Next Cell