EXCEL VBA LARGE関数で列番号を取得したい

Question

EXCELで集計やまとめをするマクロを作成しています。
数百行の中で数字が一番大きいところをピックアップするのですが、そのセルの値ならLARGE関数を使えば取得が出来るので大丈夫なのですが、
値を取得した先頭行の項目も取得したくコードを書いても、「修飾子が不正です」とエラーが出てしまいます。

考えているのは、
一番大きい数値の列番号を取得→取得した列番号の先頭行の値を取得→先頭行の取得した値をセルに収める
という感じです。
やり方がありましたら教えて頂けると幸いです。

やりたいこと

D1～F4の一番大きい数値と項目名をA2～B4にまとめたい
ﾜｰｽﾄ個数は取得出来るが、赤枠内のﾜｰｽﾄ1の項目名が取得出来ない

プログラム

'不良数のランキング
Sub Huryo_Rank()
Dim i As Integer
Dim first As Integer
Dim k_row As Integer
Dim k_name As String

For i = 2 To Cells(Rows.Count, "D").End(xlUp).Row
    first = WorksheetFunction.Large(Range(Cells(i, 4), Cells(i, 6)), 1)
    Cells(i, 2).Value = first 'ﾜｰｽﾄ個数
    
    k_row = WorksheetFunction.Large(Range(Cells(i, 4), Cells(i, 6)), 1).Column ' ここでエラーが出る
    K_name = Cells(1, k_row).Value
    Cells(i, 1).Value = K_name 'ﾜｰｽﾄ1
    
    Next i

End Sub

(LARGE関数でやる理由は、実際は1位だけじゃなく、2位以降も必要な為)

環境

Windows 10
EXCEL 2019

Answer 1

ここを

k_row = WorksheetFunction.Large(Range(Cells(i, 4), Cells(i, 6)), 1).Column ' ここでエラーが出る

こんな感じで

k_row = WorksheetFunction.Match(first, Range(Cells(i, 4), Cells(i, 6)), 0) + 3

Largeの結果は数値が返ってくるので直接Columnは出せません。
Matchで一致した場所を探しています。

Comments

[nuko3]

ありがとうございます。例の方では期待通りに動きました。
実際の方では結構ユニークな数値が多いので検索でもいいかなとは以前に思いましたが、
稀に一番大きくて同じ数値が2つある時があります。
その2つの項目名を取得したい場合はどうすれば良いでしょうか？(別の質問で建てた方がいいですかね...?)

[radames1000]

行単位で二つの項目名を取得した時、A列B列の結果表記はどうされる想定ですか？
結果表記次第ですが、Largeの1位と2位の値が同じだとどちらの項目を上位としますか？
条件がある程度変わるようでしたら別の質問が良いかもしれません。

[nuko3]

A,B列を1位、C,D列を2位...と続き、同じ値の場合は左側を優先したいです。
やりたい事を簡略化しすぎたので、また別の質問を立てることにします。
ありがとうございました！