不需要的插入行无限循环

由于某种原因,当我使用插入行代码时,它会永远插入一个新行!我编写的代码在开始时有一个do while循环,它遍历C列中的所有单元格,当它命中C列中为空的单元格时,一个变量保持单元格编号。

然后我编写了另一个子程序(当电子表格中的某些内容发生变化时调用),如果在C列的空单元格中写入了某些内容,则插入新行。但它会一直持续下去!

以下代码位于模块下

Dim a, count As Integer
Sub check()
a = 0
count = 3

Do While a = 0
    count = count + 1

    If Range("C" & count).Value = "" Then
        a = 1
    End If
Loop
End Sub


Sub addrow()

    If Range("C" & count).Value <> "" Then

        Range("C" & count).Offset(1).EntireRow.Insert
        count = count + 1

         With Range("B" & count, "AL" & count)
            .Borders(xlEdgeLeft).LineStyle = xlContinuous
            .Borders(xlEdgeRight).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeTop).LineStyle = xlContinuous
            .Borders(xlInsideVertical).LineStyle = xlContinuous
        End With

    End If

End Sub

这段代码在工作表下面

Private Sub Worksheet_Change(ByVal Target As Range)
    addrow
End Sub

打开工作簿时调用子程序“CHECK”。

我不知道为什么有无限循环!请帮忙。

非常感谢。