remove row based on two cell contents

One way:

Sub Del_Rows()
    Dim lngLoopRow As Long
    For lngLoopRow = 764 To 4 Step -1
        If Cells(lngLoopRow, 6) = 0 And Cells(lngLoopRow, 7) = "" Then
            Rows(lngLoopRow).Delete
        End If
    Next lngLoopRow
End Sub

Another would be to use autofilter.

Dom

Another example using autofilter which assumes you have headings in row 3:

Sub Del_Rows()
    With Range("A3").CurrentRegion
        .AutoFilter Field:=6, Criteria1:="0"
        .AutoFilter Field:=7, Criteria1:="="
        .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(xlCellTypeVisible) _
            .EntireRow.Delete
        .AutoFilter
    End With
End Sub

Dom