根据另一个单元格中的值自动填充VBA

Question

我正在尝试基于B列中的值大于25,000来自动填充C3：G3。当B列中的值下降到25,000以下时，自动填充不会停止，而是向下流动到最后一个活动单元格。有什么想法可以更新VBA中的代码吗？

Sub FillItUp()
Dim i As Long
i = 2
Do While Cells(i, "B").Value >= 25000
    If Cells(i, "B").Value >= i Then
        Range("C2:G2").AutoFill Destination:=Range("c3" & i & ":G" & i), _ 
        Type:=xlFillDefault
End If
i = i + 1
Loop
End Sub