Simple delete entirerow if value vba not working....

Hi All,
Can someone tell me what is going wrong here.
This is part of the code not working:

lrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

        For i = 2 To lrow
            If Range("A" & i).Value = "X" Then
            Rows(i).EntireRow.Delete
            End If
        Next i

I attached a simple small file which after sort has some redundant double lines and or subtotals I want to filter out.
I thought a simple loop going thru all the lines and find the word "Week" or "Sum:" would do the trick but no.
So now in the first column I have a formula putting an "X" for the lines that need to be deleted.
That it does fine...but then this code will not delete all the lines....but some of them it does delete....
Why? Thanks.

My god...worked like a charm. Never knew this also never had this problem with delete rows.
But thank you very very much, thought I was losing it....seemed so simple.
Much appreciated sixthsense!