inserting rows

[kenpcli]

How do I insert 3 rows above a reference in column c then stop?

for example, I need to insert 3 rows above column c when it reaches "Totals For NO INSURANCE" then stop.

 

[footoo]

Sub ft()
Dim f As Range
Set f = [C:C].Find("Totals For NO INSURANCE")
If Not f Is Nothing Then f.Resize(3).EntireRow.Insert
End Sub

 

[kenpcli]

Thank you, worked perfect