[Spirosgr]

Καλησπέρα και πάλι
Λοιπόν βάλε τον κώδικα

Sub HideBlankRows()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In Range("rngSelect")
        If cell = "" Then
            cell.EntireRow.Hidden = True
        End If
    Next
End Sub

όταν θα τρέξει θα κρυφτούν οι κενές σειρές
Ονομάσαμε την περιοχή Α6:Α25 rngSelect
Και Απαραίτητα καταργήθηκε η συγχώνευση στην στήλη * ΕΓΚΡΙΣΗ Α.Σ.Ε.
Ο τύπος που έβαλα για να εμφανίζεται το ΔΕΝ ΕΧΕΙ ΕΚΔΟΘΕΙ ΕΓΚΡΙΣΗ
μάλλον σου κάνει αλλά αν όχι άλλαξε το με κάτι παρόμοιο
Η εντολή έχει συνδεθεί με την φωτογραφία στο Α5
Καλή συνέχεια!