Public Function NextRange(FromRange As Range) As Range
    Dim r As Range
    
    If Not IsEmpty(FromRange) Then
        Set r = FromRange.End(xlDown)
    Else
        Set r = FromRange
    End If
    
    Set r = r.End(xlDown)
    
    If IsEmpty(r) And r.Row <  65536  Then
        Set r = r.End(xlDown)
    End If
    
    If IsEmpty(r) Then
        Set NextRange = Nothing
    Else
        Set NextRange = r
    End If
End Function

' запускать будешь например так
If NextRange(ActiveCell) is nothing then
     MsgBox("Нету больше заполненных областей")
else
     MsgBox("Следующая заполненная область начинается с: " & NextRange(ActiveCell).Address)
End If