Try this:
Sub Hide()
Const LastRow As Integer = 2000
Const DataCol as Integer = (the test column)
Dim Row As Integer
For Row = 1 To LastRow
If CInt(Cells(Row, DataCol)) = 0 Then
ActiveSheet.Rows(Row).Hidden = True
Else
ActiveSheet.Rows(Row).Hidden = False
End If
Next Row
End Sub
Put your own values in the constants. (You could just put values in the code. I've got in the habit of using constants because with more complex code, it's a lot easier to figure out what's going on a year later!)
Using CInt means it will still work if there are errors in the column, otherwise it falls over