Функция оценки уровня

Function xxx(rng As Range)
    
    a = ActiveCell.Row - 1
    b = rng.End(xlToRight).Row
    
    For i = rng.End(xlToRight).Row To ActiveCell.Row - 1 Step 2
        ' формируем диапазон одного уровня
        If ActiveSheet.Cells(i - 2, 1) = ActiveSheet.Cells(i, 1) Then x = x + 1
        'пробывал Resize, не понял как использовать
        Set rn = ActiveSheet.Range(ActiveSheet.Cells(i - 2, 1), ActiveSheet.Cells(i + x, 1))
        'пробывал Resize, не понял как использовать, но нужно наверное его
        rn.Select
        row1 = rn.Cells(1).Row
        row2 = rn.Cells(Selection.Cells.Count).Row
        
        ' ищем в диапазоне ответ "n"
        For Each rn In rng.Cells
            If rn.Cells(1, 1) = "n" Then xxx = ' то результат УРОВЕНЬ -1
            Exit Function
            End If
        Next
    Next
End Function

Function getLevel2$(r1 As Range)
   Dim r2 As Range, a$, t$, i&, m&, l
   Dim ws As Worksheet, xl As Application
   Set ws = r1.Worksheet: Set xl = Application
   Set r1 = r1.Offset(, -3): Set r2 = r1(1, 1).MergeArea
   
   For i = 1 To xl.CountA(r1)
       a = Replace(r2.Address, "C", "F")
       Set r1 = ws.Range(a)
       If xl.CountIf(r1, "n/a") = 0 Then
          l = xl.Match("n", r1, 0)
          If Not IsError(l) Then
             t = Mid(r2(l, 0).MergeArea(1, 1), 2)
             l = Val(t) - 1: m = xl.Max(m, l)
          Else: m = 4: Exit For: End If
       End If
       Set r2 = r2.Offset(1).MergeArea
    Next
    getLevel2 = "L" & m
End Function