Delete rows if cell is empty

Hello everyone,

I'm trying to adjust an excel file which contains sequential numbering down column A starting in row 14, ending row 37. I need this column to keep rows 14 and below sequentially numbered starting from number 1.

Each row has the number cell (column A) as mentioned above, a description cell (column B) - the contents of which is not important in this problem and two more cells (columns C and D) which contain the letter a in each of them. (The lowercase letter a is used as a tick via the webdings font.)

So this worksheet is like a checklist and I would like the worksheet to remove rows where there is no tick (lowercase a) and therefore empty in both cells C and D.

I would like the rows to be removed as I remove the ticks, not altogether as one process on the whole document.

As the row is deleted, the rows below move up and for example - if row 1 was deleted, row 2 moves up and becomes labelled as row 1 and so on and so forth.

Your advice will be most welcome!

Thanks!

Thanks for this Solus.

After all your hard work I feel a little bad about mentioning that the code deletes the row successfully but it deletes the row if EITHER cells C or D do not have data in them.

I need the worksheet to delete the row if BOTH cells C and D are empty in that particular row.

The sequential numbering is also a bit of an issue as it doesn't happen.

I hope this isn't a complicated issue for you pros as it is for me.....I tried to learn the programming, but I really cant get my head round it.....accountant lumbered with a programming task from the boss!

If Target.column = 3 Then

If Target.Value = "" and target.offset(0,1).value = "" Then
Application.EnableEvents = False
Target.EntireRow.Delete
Application.EnableEvents = True
End If

If Target.column = 4 Then

If Target.Value = "" and target.offset(0,-1).value = "" Then
Application.EnableEvents = False
Target.EntireRow.Delete
Application.EnableEvents = True
End If

End if

Solus,

Thank you ever so much.

SW