[ChrisGT7]

Ευχαριστώ για τη διόρθωση, Σπύρο! Διατύπωσα αρκετά διαφορετικά το πρόβλημα...

Θα ήθελα να κάνω την παρακάτω προσθήκη στον τύπο, αν μου επιτρέπεται:

Selection = Cells(Rows.Count, 1).End(xlUp).Row - 1 _
            - Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).End(xlUp).Row _
            + IIf(Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).End(xlUp).Value = "", 1, 0)

Αυτό γιατί το κελί Α1 υπολογίζεται πάντα ως κενό. Δηλαδή αν υπάρχει μονάχα στο κελί Α8 κείμενο, τότε ο προηγούμενος τύπος επέστρεφε 6 και όχι 7 όπως θα έπρεπε.