when removing filter all data disappears

[rinser]

Hi All,

I have a filter in my code that is supposed to filter data by a certain criteria, delete the filtered results and afterwards eliminate filter so that remaining rows would be seen by the next module.
The thing is it does filter correctly, but then if there is no data to delete (no data meets filter criteria), after removing the filter there is actually no data at all - it deletes the rows hidden by filter, it seems. If there is data that meets criteria and should be deleted then it deletes it and after removing the filter the data is ok. The problem arises when there is nothing to delete, it just deletes the hidden (by filter) rows.
Here is the code (the filter part is in bold):

Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    Rows("1:1").Font.Bold = True
    
    Range("L2:L" & Lastrow).FormulaR1C1 = "=DATEVALUE(RC2)"
    
    Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Select
    Selection.Sort Key1:=Range("A2"), Key2:=Range("L2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    
    
    Range("J2:J" & Lastrow).FormulaR1C1 = "=COUNTIF(RC[-9]:R[+1]C[-9],RC[-9])"
    Range("K2:K" & Lastrow).FormulaR1C1 = "=R[-1]C+1"
    Range("K2:K" & Lastrow).Value = Range("K2:K" & Lastrow).Value
        
    
    Range("F1").AutoFilter
    Range("F1").AutoFilter Field:=10, Criteria1:=">1", Operator:=xlAnd
    Rows("2:" & Lastrow).Select
    Selection.Delete Shift:=xlUp
    Range("J1").AutoFilter    
    Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Select
    Selection.Sort Key1:=Range("K2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Columns("K:L").ClearContents

This is a sample of the data:
Sample sorting.xls

Please advise me as to what is wrong with this code or how can it be improved. Any ideas appreciated.