excel在中断模式不能执行程序代码

ningmeng1979

请问以下程序中哪里编写错误了，运行的时候提示“中断模式不能执行程序代码”哪位大侠帮忙改一下！急！！！！！
Set MY = Sheets("成员往来")
Sheets("数据库").Select
  For COW = 2 To maxcow
    If Range("E" & COW).Value = dw Then  '
            MY.Range("A" & kkk).Value = kkk - 6
            MY.Range("B" & kkk).Value = Range("D" & COW).Value
            MY.Range("C" & kkk).Value = Range("F" & COW).Value
            MY.Range("D" & kkk).Value = Range("O" & COW).Value
            MY.Range("G" & kkk).Value = Range("M" & COW).Value
            MY.Range("H" & kkk).Value = Range("L" & COW).Value
            MY.Range("I" & kkk).Value = Range("N" & COW).Value
            MY.Range("J" & kkk).Value = Range("I" & COW).Value
            MY.Range("K" & kkk).Value = Range("H" & COW).Value
            MY.Range("L" & kkk).Value = Range("J" & COW).Value
            
            If Range("K" & COW).Value <> "" Then
              MY.Range("M" & kkk).Value = Range("D" & COW).Value
              MY.Range("N" & kkk).Value = Range("K" & COW).Value
            End If
            MY.Range("P" & kkk).Value = Range("O" & COW).Value
            Range("T" & kkk).Value = MY.Range("T" & kkk - 1).Value + MY.Range("I" & kkk).Value + MY.Range("N" & kkk).Value - MY.Range("L" & kkk).Value
            kkk = kkk + 1
     End If

mxg825

kkk  前面有赋值吗？

liuguansky

截完整代码出来看看呗。