Speed up cell deleting process

Hi there, is there anyway this process could be sped up?

Sub DeleteDataPastDate()
Dim i As Long, lastrow As Long
lastrow = Range("A65536").End(xlUp).Row

Sheets("Heldsec").Select

For i = lastrow To 2 Step -1

    If Cells(i, 5) = "X" And Cells(i, 8) <> Date - 1 Then
    Cells(i, 1).EntireRow.Delete
    End If
    
    If Cells(i, 5) = "W" And Cells(i, 8) <> Date - 1 Then
    Cells(i, 1).EntireRow.Delete
    End If
    
    If Cells(i, 5) = "Q" And Cells(i, 8) <> Date - 1 Then
    Cells(i, 1).EntireRow.Delete
    End If
    
    If Cells(i, 5) = "" And Cells(i, 8) <> Date - 1 Then
    Cells(i, 1).EntireRow.Delete
    End If
    
Next
End Sub

All help is appreciated.