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

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$(r As Range)
   Dim ws As Worksheet, c As Range, a$, t$, i&, m&, l
   Set ws = r.Worksheet
   Set r = r.Offset(, -2): Set c = r(1, 1).MergeArea
   For i = 1 To Application.CountA(r)
       a = Replace(c.Address, "C", "E")
       l = Application.Match("n", ws.Range(a), 0)
       If Not IsError(l) Then
          t = c(l, 0).MergeArea(1, 1)
          l = Val(Mid(t, 2)) - 1
          m = Application.Max(m, l)
       End If
       Set c = c.Offset(1).MergeArea
    Next
    getLevel2 = "L" & l
End Function

getLevel2 = "L" & m

Function getLevel3$(r As Range)
   Dim i&, t$, m&, l
   For i = 1 To r.Rows.Count Step 11
       l = Application.Match("n", r(i).Resize(11), 0)
       If Not IsError(l) Then
          t = Mid(r(l, -3).MergeArea(1, 1), 2)
          l = Val(t) - 1:  If l > m Then m = l
       End If
    Next
    getLevel3 = "L" & m
End Function

If ws.Range(a) = "Y" Then getLevel2 = "L4": Exit Function

If Not IsError(l) Then
   t = Mid(r(l, -3).MergeArea(1, 1), 2)
   l = Val(t) - 1:  If l > m Then m = l
Else
   m = 3 '4
End If

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