[ChrisGT7]

Καλησπέρα Σπύρο,

Δοκίμασε να αντικαταστήσεις το Range("C8:E2000") με το Range("C8:E" & Range("A" & Rows.Count).End(xlUp).Row).

Στα υπόλοιπα φύλλα δοκίμασε επίσης να αντικαταστήσεις το Range("E8:E2000") με το Range("E8:E" & Range("A" & Rows.Count).End(xlUp).Row).

Θεωρώ πως στη στήλη Α των φύλλων θα υπάρχει πάντα ο ίδιος τύπος για τον υπολογισμό του Α/Α έτσι ώστε ο παραπάνω τύπος που προτείνω να φέρνει πάντα την τελευταία γραμμή του πίνακα εργασίας κάθε φύλλου.