macro to insert row after specific text

[Luke]

in column "A" I need to insert row after specific word, "First Out". is
there a macro for this?
I have over 7000 rows and one at a time is not good.
Thank you
Luke

 

[Bob Phillips]

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Cells(i, "A").Value = "First Out" Then
Rows(i + 1).Insert
End If
Next i

End Sub

 

[Luke]

Thank you Bob
Luke

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
If Cells(i, "A").Value = "First Out" Then
Rows(i + 1).Insert
End If
Next i

End Sub