I am searching for the shortest syntax to modify this bit of code as follows;

"for any rows in the range between col e and 0, delete the entire row, EXCEPT col A, only if the the cells in that range are either 1 or zero...for any values graeter than 1, dont delet etc..

all input is most sincerely appreciated.

Sub Deletedata()
    Dim I As Integer
    Dim F As WorksheetFunction
    
    Set F = Application.WorksheetFunction
    For I = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 'keep header
        
        If F.CountIf(Range("E" & I & ":" & "O" & I), "0") = 0 Then 'correct syntax to modify this line
            Rows(I).EntireRow.Delete
        End If
    
    Next I
End Sub