I would like to insert a new row above a cell that contains the text "Full Services" in column B. Here is my macro, however it is stuck in an infinite loop, and does not stop at just inserting a single row.

Sub PrelimInsert()
Dim c As Range
For Each c In Range("B:B")
If c.Value = "FULL SERVICES" Then c.Offset(-1, 0).EntireRow.Insert
End If
Next c

End Sub