Loop through to hide rows

[mhenk]

I'd like to have a macro that, on the press of a button, loops through my worksheet and hides each row in which:

Column D = 0
Column A is NOT blank.

I'm having some troubles, obviously.

Thanks!

 

[njimack]

Hard to code without seeing the full layout of your data. I've assumed there's an entry in every row in Column B

Sub Hide_Rows()

Dim End_Row As Long, n As Long

With ActiveSheet

End_Row = .Range("A" & Rows.Count).End(xlUp).Row

For n = 2 to End_Row

If .Cells(n,1) <>"" And .Cells(n,4) = 0 then .Cells.EntireRow.Hidden = True

Next n

End With

End Sub