    'ŧiܼ
    Dim Cell_c As Integer	'ŧi Cell_c ܼơAتOnxsثexs檺C
    Dim MaxS As Integer		'ŧi MaxS ܼơAتOnxso̰
    Dim Cell_i As Integer	'ŧi Cell_i ܼơAتOFO̤jxs檺C
    Dim Area As String		'ŧi Area ܼơAتOnsJxs}
    
    ']wܼƪ
    Cell_i = 0			'Cell_i Ȭ 0
    MaxS = 0			'MaxS Ȭ 0
     
    'ϥΰj For... Next
    For Cell_c = 6 To 15			'oӰj| Cell_c=6 ] 15A@ 10 
        Area = "C" & Cell_c			'Area ܪO}AbĤ@ɡAArea  C6
        If Range(Area).Value > MaxS Then	' Area }Ȥp̤jȡAU{
            MaxS = Range(Area).Value		'̤jܦ Area }
            Cell_i = Cell_c			'̤jxs檺CƦsJثeC
        End If
    Next Cell_c					'ŦXdAN^j鳯z}Y
    
    Area = "B" & Cell_i				'Xj餧ANO̤jȤHW
    Range("C17").Value = Range(Area).Value	'`WHW}AW@{