vbaで指定範囲の最小値を探し、最小値が入ったセルの行番号を取得する方法を教えてください。

For i = 0 To 5
   
    min = WorksheetFunction.min(Range(Cells(i * 5 + 1, 1), Cells(i * 5 + 4, 1)))
    
    m = i * 5 + 1
    For k = i * 5 + 1 To i * 5 + 4
        If Cells(k, 1) = min Then
            m = k
            Exit For
        End If
    Next k
    
    Cells(i * 5 + 1, 2).Formula = "= 100-G" & CLng(m)
Next i  'その次の5セルの固まりへ…(6-10行)