Hi again,
after you have run your recorded macro's try this macro (still before the macro I wrote for you). It will delete rows where there is data in column "E" but no data in column "D".

I think we are through now with all issues!!

Kind regards
Bjorn

PS. Have a look at the code. As you see it is not so complicated with some simple macro's, why not try to learn? It started learning just some few months ago, just by googling around

Sub FixShortMonth()
Application.ScreenUpdating = False

Dim rownum As Long
rownum = 174

Do Until Cells(rownum, 5).Value = ""

If Cells(rownum, 4).Value = "" Then
Cells(rownum, 1).EntireRow.Delete
Else
rownum = rownum + 1
End If

Loop

Application.ScreenUpdating = False
End Sub