[kapetang]

Καλημέρα

Σωτήρη το κομμάτι του κώδικα:

    For Each c In Range("d41:d66")
        If Trim(c) = "" Then
            c.EntireRow.Hidden = True
        End If
    Next

Έπρεπε να κρύβει τις κενές γραμμές.

Ανέβασε το αρχείο που παρουσιάζει το πρόβλημα.