the problem has been settled

Sub getBiggest()

Dim nN As Integer
Dim ThisRange01 As Range

For nN = 1 To 100
Set ThisRange01 = Range(Cells(nN + 2, 2), Cells(nN + 2, 10))
Cells(nN + 2, 12) = MaxCol(ThisRange01)
Next nN

End Sub
--------------------------------------------------------------------------------------------------------------------------------------------
Function MaxCol(ByRef ThisRange As Range) As String
    Dim cel As Range
    For Each cel In ThisRange
               If cel = Application.WorksheetFunction.Max(ThisRange) Then MaxCol = cel.Column - 1
    Next cel
End Function

------------------------------------------------------------------------------------------------------------------------------------

You can modify the code to reflect your range.
If you have difficulty, let me know please.
Good luck.

my problem is with stata instead of excel, sorry my fault

Thank you buddy.
Good luck.