    'ŧ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_iA̤jȪCȪȬ 0
    MaxS = 0	 		'MaxSAȬ 0
    Cell_c = 6 			'j檺xsCƥѲ 6 C}l

    Do
        Area = "G" & Cell_c			'Area ܪO}AbĤ@ɡAArea  G6
        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
        Cell_c = Cell_c + 1			'j檺xsCƥ[W@C	
    Loop While Cell_c < 16			'oӰj|@] Cell_c < 16
    Area = "B" & Cell_i				'Xj餧ANO̤jȤHW
    Range("G17").Value = Range(Area).Value	'ܤHW}AW@{