รหัส VBA ซ่อน / ยกเลิกการซ่อนอย่างต่อเนื่องโดยอัตโนมัติ

ฉันต้องซ่อน / ยกเลิกการซ่อนแถวเนื่องจากมีการอัปเดตค่า ตอนนี้รหัสของฉันจะซ่อนอัตโนมัติเมื่อค่ากลายเป็นศูนย์ แต่ถ้าฉันป้อนค่ามันจะไม่ยกเลิกการซ่อนอัตโนมัติ

Private Sub Worksheet_Calculate()
    Dim LastRow As Long, c As Range

    Application.EnableEvents = False
    On Error Resume Next
    For Each c In Range("F10:F56")
        If c.Value = 0 Then
            c.EntireRow.Hidden = True
        ElseIf c.Value = 1 Then
            c.EntireRow.Hidden = False
        End If
    Next
    On Error GoTo 0
    Application.EnableEvents = True
End Sub

ฉันจะลองเปลี่ยน

ElseIf c.Value = 1 Then

ไปยัง

ElseIf c.Value <> 0 Then

ตอนนี้มันกำลังตรวจสอบเฉพาะสำหรับเซลล์ที่มี 0 ในกรณีแรกหรือ 1 ใน elseif และฉันถือว่าคุณต้องการซ่อนใน 0 และยกเลิกการซ่อนในทุกสิ่งที่ไม่ใช่ศูนย์