Satır gizleme sorunu

[efeem]

Arkadaşlar ekteki dosyada satırları gizlerken bir sorunum var. Gizle dediğimde birleştirilmiş hücrelerin 1. satırını gösteriyor 2. ve 3. satırları boş olarak gizliyor. Buna engell olmam lazım sadece en sondaki boş satırları tümden gizlemesini istiyorum. Toplama kadar. toplam kalacak. Yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub gizle()
    Dim i As Byte
    For i = 2 To 29 Step 3
        If Cells(i, "B") = "" Then
            Rows(i & ":" & i + 2).EntireRow.Hidden = True
        End If
    Next i
      
End Sub
'''''''''''''''''''''''''''''''''
Sub Göster()
  Cells.EntireRow.Hidden = False
End Sub

.