代码不会停止运行

Question

我已将以下代码应用到表中，该表需要删除除第一行之外的所有行，以便将新数据粘贴到其中。

Sub KeepFormulas()

Dim sRow, lCol As Integer

    sRow = ActiveCell.Row

    lCol = Cells(sRow, Columns.Count).End(xlToRight).Column

    For Each cell In Range(Cells(sRow, 1), Cells(sRow, lCol))

    If cell.HasFormula = False Then cell.ClearContents

        Next cell

End Sub  

清除范围内最后一个单元格的内容后，活动单元格将成为第一行的第一个单元格，代码在最后两行代码之间无限循环。清除范围内所有单元格后，如何停止代码运行（除非代码包含公式）。