Insert Blank row before a specific term

[Blessy Clara]

The following code Inserts a blank row after a specific term

Sub insertRow()
Do
If InStr(1, Selection.Value, "Research director:") > 0 Then
Selection.Offset(1, 0).Select
Selection.EntireRow.Insert
End If
Selection.Offset(1, 0).Select
Loop While Selection.Value<> ""
End Sub

Could someone help me on how to modify the code to add a blank row BEFORE THE specific term - Thank you

 

[mumps]

Try:

Sub insertRow()
    Do
        If InStr(1, Selection.Value, "Research director:") > 0 Then
            Selection.EntireRow.Insert
            Selection.Offset(1, 0).Select
        End If
        Selection.Offset(1, 0).Select
    Loop While Selection.Value <> ""
End Sub

 

[Blessy Clara]

Hi Mumps - Thank you for the code (Y)

 

[mumps]

You are very welcome.