Sub EJDel()
Dim lst As Long
Dim i, j As Long
Dim BlkCnt As Integer
lst = Sheet2.UsedRange.Rows.Count
For i = lst To 2 Step -1
For j = 5 To 10
BlkCnt = 0
If Cells(i, j) <> "" Then BlkCnt = BlkCnt + 1
Next j
If BlkCnt = 0 Then Range("E" & i).EntireRow.Delete
Next i
End Sub