求助！循环加总出错

ssuplsly001

求助！为什么我用这个代码循环加总数字后（除1亿）得出的结果会和最后一行数据一样？而如果不除1亿则会得出正确结果？另外如何让最终加总的结果显示起来为逗号分开的数字？试了改格式但好像没用，具体数据看附件

代码如下：
Sub 头寸计算()


Dim i As Integer
Dim k As Double

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Range("g" & i).NumberFormatLocal = "#,##0.00"

    If Range("e" & i) = "" Then
        Exit For

    ElseIf Range("e" & i) = "拆出" Then
        Range("o" & i) = Range("g" & i) * 1
    Else:
    Range("o" & i) = Range("g" & i) * -1
    End If

    Range("o" & i).NumberFormatLocal = "#,##0.0"
    k = (k + Range("o" & i)) / 100000000


Next

    Range("o" & ActiveSheet.UsedRange.Rows.Count + 1) = k
    Range("o" & ActiveSheet.UsedRange.Rows.Count + 1).NumberFormatLocal = "#,##0.00"

End Sub