EXCEL VBA新手請教

小弟最近自學EXCEL VBA，計算總和、平均值、最大值和最小值。
目前卡在最小值一直弄弄不出來，請問前輩語法該如何下：

70
99
30
40
50
60
45
35
25
15
469 <--總和
46.9 <--平均
99 <--最大值
0 <--最小值(搞不定)

語法如下
Sub ask01()
su = 0 '總和
av = 0 '個數
ma = 0 '最大值
mi = 0 '最小值
For aa = 1 To 10 Step 1
av = av + 1
su = su + Cells(aa, 1)
If Cells(aa, 1) > ma Then
ma = Cells(aa, 1)
End If
Next aa
Cells(aa, 1).Value = su '求總和
Cells(aa + 1, 1).Value = su / av '求平均
Cells(aa + 2, 1).Value = ma '求最大值
Cells(aa + 3, 1).Value = mi '求最小值
End Sub