How to insert blank row above a cell containing specific text

Emma

Try this:

Option Explicit

Sub emma()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Dim i As Long

Application.ScreenUpdating = False

For i = lr To 5 Step -1
If Range("A" & i).Value Like "Asset*" Then
Range("A" & i).EntireRow.Insert
End If
Next i
Application.ScreenUpdating = True
MsgBox ("complete")

End Sub

@excelactuary

Administrative Note:

Welcome to the forum.

We are happy to help, however whilst you feel your request is similar to this thread, experience has shown that things soon get confusing when answers refer to particular cells/ranges/sheets which are unique to your post and not relevant to the original. Please start a new thread - See Forum rule #4

If you are not familiar with how to start a new thread see the FAQ: How to start a new thread