Búsqueda y referencia de 3 valores vba

Tengo las siguientes celdas la cual evalúa el nivel de firma, por ejemplo si hay un valor en la referencia A6 el valor de A1 será Director, si está vacía la celda A6 pero hay un valor en B6 entonces el valor de A6 será Gerente y si no Cordinador, esto lo hago con una macro y formúlas

la fórmula de A5=SI(A6="DIRECTOR",3,SI(O(A6="No Aplica",A6=""),""))

B6=SI(B6="GERENTE",2,SI(O(B6="No Aplica",B6=""),""))

C5 siempre debe aparecer.

Dicho esto realice una macro para que ponga el valor en A1, mi problema radica que lo debo hacer con una macro y ya tengo el código, sin embargo me gustaría que si anexo filas o quito filas no se pierdan las referencias y corra la macro igual. El código que elaboré es el siguiente:

Sub Firmas()

Dim Nivelfirma As Integer
Dim max As Integer

'*Aplicar la función para obtener el número máximo del rango de firmas

Nivelfirma = Application.WorksheetFunction.max(Range("A4:C15"))
max = Nivelfirma

    If max = 3 Then 'Para director
        Cells(1, 1).Value = Cells(5, 1).Value
            ElseIf max = 2 Then 'Para Gerente
                Cells(1, 1).Value = Cells(5, 2).Value
        End If
    If max = 1 Then
        Cells(1, 1).Value = Cells(5, 3).Value ' Para cordinador
        End If
        End Sub