Delete row contents if keyword is found in Column E

Try

Sub DelRows2()
    Application.ScreenUpdating = False
    With Sheets("Sheet1").Range("E1", Range("E" & Rows.Count).End(xlUp))
        .AutoFilter Field:=1, Criteria1:="Homework"
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

Change sheet name to match