Hi
I us this macro for deleting rows, and it is slow. I thing I can do it faster manually
Is there a beter way to du it?

Sub Delet_rows()

For i = Cells(Rows.Count, 14).End(xlUp).Row To 1 Step -1
If Cells(i, 14) = "Km" And Cells(i, 13) > 1500 Then Cells(i, 14).EntireRow.Delete
Next i

For i = Cells(Rows.Count, 14).End(xlUp).Row To 1 Step -1
If Cells(i, 14) = "Days" And Cells(i, 13) > 5 Then Cells(i, 14).EntireRow.Delete
Next i

End Sub