有條件隱藏空白行和加空白行

問題神童

如range”c1:c80”

C1有非空白
c2空白
C3空白

c4非空白
c5非空白
c6到c80空白

以上情況我想自動隱藏空白的c3但c2不用
而c4中間要加一行空白的行
我該如何set 才可以不會清一色空白就隱藏？
我原本是
Dim c as range
Application.screenupdating = False
For Each c In Range(“c1:c80”)
If c.value = 0 or c.value = “ “ then
C. Entirerow.hidden = true
Else
C.entirerow.hidden = false
End if
Next c
Application.screenupdating = true

我應該如何改才可以有我以上說的隔行效果？
感謝大大