Есть ли хоть одна непустая ячейка в Range

If Cells(2, 1).Value = "" And _
    Cells(2, 2).Value = "" And _
    Cells(2, 3).Value = "" And _
    Cells(2, 4).Value = "" And _
    Cells(2, 5).Value = "" And _
    Cells(2, 6).Value = "" And _
    Cells(2, 7).Value = "" Then

While Cells(НомерСтроки, 1) <> "" Or Cells(НомерСтроки, 2) <> "" Or Cells(НомерСтроки, 3) <> "" Or Cells(НомерСтроки, 4) <> "" Or Cells(НомерСтроки, 5) <> "" Or Cells(НомерСтроки, 6) <> "" Or Cells(НомерСтроки, 7) <> ""
        '...
   Wend

Option Explicit
 
Sub tt()
    Dim a(), i&, ii&, flag As Boolean
 
    a = Range(Cells(2, 1), Cells(3, 7)).Value
 
    For i = 1 To UBound(a, 1)
        ii = 1
        Do While ii <= UBound(a, 2)
            If Len(a(i, ii)) Then flag = True: Exit For
            ii = ii + 1
        Loop
    Next
 
    If flag Then MsgBox "Есть!" Else MsgBox "Нет!"
End Sub
 
Sub ttt()
If Application.CountA(Range(Cells(2, 1), Cells(3, 7))) Then MsgBox "Есть!" Else MsgBox "Нет!"
End Sub

Function isAllEmpty(R as Range) As Boolean
Dim c as range
     For each c in r
          If Not isEmpty(c.value) then Exit Function
     Next
     isAllEmpty=True
End Sub

Sub Example()
Dim lngConstants As Long, lngFormulas As Long
With Range("a1:d11")
    On Error Resume Next
    lngConstants = .SpecialCells(xlCellTypeConstants).Cells.Count
    If Err.Number <> 0 Then Err.Clear
    lngFormulas = .SpecialCells(xlCellTypeFormulas).Cells.Count
    If Err.Number <> 0 Then Err.Clear
    On Error GoTo 0
    MsgBox "Кол-во пустых ячеек: " & .Cells.Count - lngConstants - lngFormulas
End With
End Sub