Delete an entire Row if 2 Columns = Zero Q

The code below deletes the entire row starting upwards from row 500 if the
value in H=0, but if E=VAT then ignore regardless if H in that particular
row = 0.

For i = Range("E500").End(xlUp).Row To 2 Step -1
If Left(Range("E" & i).Value, 3) <> "VAT" Then
If Range("H" & i).Value = 0 Then
Range("H" & i).EntireRow.Delete
End If
End If
Next i


I wish to modify this slightly that even if E=VAT the row will still be
deleted if L=0. So in effect if H & L are "both" Zero, delete the entire
row. How would I do that

Thanks

For i = Range("E500").End(xlUp).Row To 2 Step -1
If Left(Range("E" & i).Value, 3) <> "VAT" or _
Range("L" & i).Value = 0 Then
If Range("H" & i).Value = 0
Range("H" & i).EntireRow.Delete
End If
End If
Next i

--
Regards,
Tom Ogilvy


"John" <[email protected]> wrote in message
news:[email protected]...
> The code below deletes the entire row starting upwards from row 500 if the
> value in H=0, but if E=VAT then ignore regardless if H in that particular
> row = 0.
>
> For i = Range("E500").End(xlUp).Row To 2 Step -1
> If Left(Range("E" & i).Value, 3) <> "VAT" Then
> If Range("H" & i).Value = 0 Then
> Range("H" & i).EntireRow.Delete
> End If
> End If
> Next i
>
>
> I wish to modify this slightly that even if E=VAT the row will still be
> deleted if L=0. So in effect if H & L are "both" Zero, delete the entire
> row. How would I do that
>
> Thanks
>
>

Thanks Tom

Just a "Then" missing from - If Range("H" & i).Value = 0


"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> For i = Range("E500").End(xlUp).Row To 2 Step -1
> If Left(Range("E" & i).Value, 3) <> "VAT" or _
> Range("L" & i).Value = 0 Then
> If Range("H" & i).Value = 0
> Range("H" & i).EntireRow.Delete
> End If
> End If
> Next i
>
> --
> Regards,
> Tom Ogilvy
>
>
> "John" <[email protected]> wrote in message
> news:[email protected]...
>> The code below deletes the entire row starting upwards from row 500 if
>> the
>> value in H=0, but if E=VAT then ignore regardless if H in that particular
>> row = 0.
>>
>> For i = Range("E500").End(xlUp).Row To 2 Step -1
>> If Left(Range("E" & i).Value, 3) <> "VAT" Then
>> If Range("H" & i).Value = 0 Then
>> Range("H" & i).EntireRow.Delete
>> End If
>> End If
>> Next i
>>
>>
>> I wish to modify this slightly that even if E=VAT the row will still be
>> deleted if L=0. So in effect if H & L are "both" Zero, delete the entire
>> row. How would I do that
>>
>> Thanks
>>
>>
>
>