I am realy puzzled by this loop I have to remove lines with zero amounts.

This is the original loop:
 'Clean 0 lines
    lrow = Sheet3.Range("J" & Rows.Count).End(xlUp).Row
    For j = 2 To lrow
    If Range("M" & j).Value = 0 Then Range("M" & j).EntireRow.Delete
    Next j
However in file 1 it work ok but in the other file is leaves 2 lines behind.
Of course I looked if there were decimals left, so like 10 or 20 positions but nothing.

Then I tried this loop to see if it identified the correc lines with 0 :
'Clean 0 lines
    lrow = Sheet3.Range("J" & Rows.Count).End(xlUp).Row
    For j = 2 To lrow
    If Range("M" & j).Value = 0 Then MsgBox j 
    Next j
And guess what....it identified exactly the lines which need to be deleted.
But the original loop keeps skipping always the same 2 lines.

Anybody a clue what could be up?
Thanks.