请教一下一个关于vba的问题
最近使用彭博，彭博里的数据连接到excel，excel表格里的收益率盘中一直是跳动的，想做个触发的机制，当excel里的收益率A大于15%时，在excel里的另外的单元格B自动记录和收益率A有关的所有参数，而不跟随着A的收益率的跳动而跳动，也就是拦截数据啦，大家帮我看下程序，不知道问题出在哪里？非常感谢


Public Sub 自动记录平仓开仓()
Do
Dim intflag As Integer
intflag = 1
If intflag = 1 And Range("B5") > 0.15 Then
Sheet1.Range("D5") = Sheet1.Range("B5")
Sheet1.Range("D5").Interior.Color = RGB(255, 0, 0)
intflag = 0
MsgBox "您已经可以开仓了！"
ElseIf intflag = 0 And Range("B5") < 0.02 Then
Sheet1.Range("C5") = Sheet1.Range("B5")
Sheet1.Range("C5").Interior.Color = RGB(15, 200, 60)
intflag = 1
MsgBox "您已经可以平仓了！"
Loop Until flag < 0
End If
End Sub