Visual Basic para Aplicaciones - Eliminar Renglon Excel Condicion

Hola a Todos:

Tenemos una hoja donde aparece informacion para 5 columnas y N renglones.

Cada numero (variable) de renglones aparece en la 1a. columna la leyenda "Reporte de la compañia" y cada numero (tambien variable) de renglones aparecen en la 2a, 3a, y 4a, columna cantidades positivas y negativas.

Se requiere eliminar con una macro los renglones que contengan la leyenda "Reporte de la compañia".
Tambien con macro se requiere eliminar los renglones cuyas 3 cantidades sean positivas.

Se agradecera cualquier comentario.

Esto puede servir.

Sub Borrar()
Sheet1.activate
Sheet1.select
Fila=1
Do While Not IsEmpty(Sheet1.Cells(Fila,1))=True
If Sheet1.Cells(Fila,1)="Reporte de la Compañia" Or _
( Sheet1.cells(Fila,2)>=0 And Sheet1.cells(Fila,3)>=0 And _
Sheet1.cells(Fila,4)>=0) then
Sheet1.cells(Fila,1).select
Selection.EntireRow.Delete
Fila=Fila-1
end if
Fila=Fila+1
Loop