Re-ocultar filas con macros

Saludos al "comité de sabios"

Tengo en un fichero excel algo aproximado a lo siguiente
EPIGRAFE SUBEPIGRAFE IMPORTE1 IMPORTE2
I.
1. 0,00 0,00
2. 122,00 220,00

II. y asi sucesivamente

He prerarado una macro que cuando una línea tiene valores 0 en ambas
columnas de importe, la oculta. El código es el siguiente:

Sub OcultaFilas()
For x = 6 To 105
If Range("K" & x) = 0 Then
If Range("L" & x) = 0 Then
Rows(x).Select
Selection.EntireRow.Hidden = True
End If
End If
Next x
End Sub

El problema me surge que entre el subepigrafe 2, y el epigrafe II hay una
fila vacia, que en principio se debe mantener siempre y cuando el epigrafe I
exista, ya que si por ejemplo, los epígrafes I a X tienen datos cero y se
ocultan, las filas existentes entre epigrafe I y II, II y III, etc se me
mantienen y el resultado de la hoja queda bastante mal dejando un monton de
filas en blanco.

¿Se os ocurre alguna forma de ocultar dichas filas??? He mirado algo con
xlCellTypeVisible pero no me queda nada claro...

Gracias