Making rows invisible with VBA

Hi, I have a cell range from A18 to A49, and I want a macro to hide the rows that have zeros in them. For example, if the value on A24 is zero, row 24 would be hidden. But if the value on A24 changes to a number later, row 24 would show up again.

Now I guess you can already tell I am a beginner at VBA. I thought of a macro like this:

If ActiveSheet.Range("A18").Value = 0 Then
ActiveSheet.Rows("18:18").Hidden = True
Else: ActiveSheet.Rows("18:18").Hidden = False
End If

But repeating those lines from A18 to A49 seems pretty tedious. Is there a faster way to do this?