Hi guys

I've got some code set up to add a row above any row containing the word "Task" (helpfully provided by wonderful people on site website!). I've realised that in some cases there is already an empty row, so I don't want a second blank row. How can I change the code to say add a row, unless the row is already blank?

this is the code:

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 "Task*" Then
Range("A" & i).EntireRow.Insert
End If
Next i
Application.ScreenUpdating = True
MsgBox ("complete")

End Sub

Thanks so much
Emma