Macro to Hide/Unhide Rows Based on Cell Value

I have a dynamic spreadsheet and I would like a macro that will automatically hide a row when all values in that row from a given column range are 0 or blank (whichever works, I can leave the cells blank or insert a 0 if need be). I would also need a macro to automatically unhide a row if any of the cells in a given column range contain values greater than 0 and I would like this to update automatically.

For example, row 16 in my attachment currently contains no values from columns B to O, so I would like the macro to automatically hide that row. If I went in and entered a number 3 in D16, I would want the macro to unhide the entire row. Is this possible? Please let me know if what I'm asking is not clear enough.

with this code in SheetChange

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 And Target.Column < 16 And Target.Count = 1 Then
    Application.ScreenUpdating = False
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For x = lr To 4 Step -1
        If Application.Sum(Range("B" & x, "O" & x)) = 0 Then
            Range("A" & x).EntireRow.Hidden = True
        Else: Range("A" & x).EntireRow.Hidden = False
     End If
    Next
    Application.ScreenUpdating = True
End If
End Sub

Kind regards
Leo

Thank you so much!