求助：如何让进货数量到设定批次自动标记

只要进货吨数累计相加大于200就算一批次

Sub leiji200cxs() '一列数据，累计200出货就往下重新算出货。
Dim i, j, k, m
Dim rng1, rng2, rngx, maxhh, wks, sum
maxhh = Range("i65536").End(xlUp).Row
k = 1
For i = 2 To maxhh
sum = 0: j = i
Do While sum <= 200
sum = sum + Cells(i, "i").Value
i = i + 1
Loop
i = i - 1: m = i
If k Mod 2 = 1 Then
Range(Cells(j, "i"), Cells(m, "i")).Interior.Color = vbRed
End If
k = k + 1
Next i
End Sub