Sub Номер_строки()
Dim Max As Double, nStr As Long
Dim Rng As Range, rCell As Range
    
    Set Rng = Range("K24:K29")
    Max = Application.Max(Rng)
    For Each rCell In Rng
        If rCell.Value = Max Then
            nStr = rCell.Row
            Exit For
        End If
    Next rCell
    MsgBox "Номер строки с максимальным числом: " & nStr, vbInformation, ""
End Sub

Sub www()
With Range("K24:K29")
MsgBox .Find(WorksheetFunction.Max(.Cells)).Row
End With
End Sub