How to delete a blank row if the row above that is blank

[Excelfail]

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

[Norie]

Try this.

Please Login or Register  to view this content.

PS Can you add code tags when posting code?

[Excelfail]

Hi

That worked! Thanks so much for your help

Sorry about the code tags thing.....not too sure what to use?

Emma

[Norie]

Emma

For the code tags, paste the code into the post, select it and then click the # button on the toolbar above the posting window.

[Excelfail]

Great, will remember that! Thanks for your help

Will add reputation and mark as solved, cheers!

Emma