Sub test()
For Each ws In ActiveWorkbook.Sheets
If ws.Name = "ODA MATOS" Or ws.Name = "Manip" Then
With ws
derlig = .Cells(Rows.Count, 4).End(xlUp).Row
For i = derlig To 8 Step -1
If .Cells(i, 4).Value = 0 Or IsEmpty(.Cells(i, 4)) Then
.Cells(i, 4).EntireRow.Delete shift:=xlUp
ElseIf .Cells(i, 8).Value = 0 Or IsEmpty(.Cells(i, 8)) Then
.Cells(i, 8).EntireRow.Delete shift:=xlUp
End If
Next i
End With
Else
Exit For
End If
Next ws
End Sub