Runtime Error 13

Hi all

I am getting Run-time Error 13 from the following code:

-----------------------------

Dim c As Range
 Application.ScreenUpdating = False
For Each c In Range("A:A")
 If c.Value = "This is an estimate only and applies for the termination date displayed." Then
 c.Offset(1, 0).EntireRow.Insert
 End If
Next c

-----------------------------

Can anyone help with this?
This code is designed to insert a blank row after C.value (Specified Text).
It works for the first few 100 rows, but then shows the Run-time error.

Thanks in advance!