Hide / Unhide rows where all cell values are ZERO

Column D

Could use something like ...(I'm a novice so I'm unsure)

If Application.CountA(ActiveCell.EntireRow)=0 Then
End IF
Else Application.WorksheetFunction.Sum(Rows(l)) = 0 Then
Rows(l).Hidden = True
End If