Function NivMax() As String
Application.Volatile
Dim n&: n = Cells(Rows.Count, 3).End(3).Row: If n < 7 Then Exit Function
Dim s$, i&, j&, k As Byte, m As Byte
For i = 7 To n
s = Cells(i, 3)
If s <> "" Then
k = Asc(Left$(s, 1)) - 48: If k > m Then m = k: j = i
End If
Next i
If m > 0 Then NivMax = Cells(j, 3)
End Function