[ChrisGT7]

Απάντηση Πρώτη:
Ναι σωστά. Το πλάτος του πίνακα είναι από τη στήλη του MyCell συν τέσσερις στήλες ακόμα. Οπότε αυξάνεις το 4 κατά το επιθυμητό νούμερο μείον 1. Επίσης θα πρέπει να αλλάξεις την ιδιότητα ColumnCount του listbox στο πραγματικό νούμερο στηλών που χρειάζεσαι. Τώρα είναι 5.

Απάντηση Δεύτερη:
Δες το συνημμένο αρχείο αν σε βολεύει, όπου χρησιμοποιώ κουμπί για να σε μεταφέρει στην επικεφαλίδα του πίνακα που ψάχνεις.

Απάντηση Τρίτη:
Θα χρειαστείς περισσότερες στήλες από τις 16384 που διαθέτουν τα φύλλα εργασίας;;; ΟΚ.
Αν θεωρήσουμε πως ο ΚΑΕ δεν πρόκειται να υπάρξει πουθενά αλλού παρά μόνο στις επικεφαλίδες των πινάκων, δοκίμασε να αντικαταστήσεις το Rows("1:1") με το Cells και ολόκληρη τη γραμμή LsBx.RowSource = "ΔΕΔΟΜΕΝΑ!" &..... με την παρακάτω γραμμή κώδικα:
LsBx.RowSource = "ΔΕΔΟΜΕΝΑ!" & MyCell.Offset(1, 0).Address & ":" & .Cells(MyCell.Row + 30, MyCell.Column + 4).End(xlUp).Address

Πάντως θα σου πρότεινα κάτι πολύ πιο απλό, που ίσως να σε διευκολύνει περισσότερο στην καταχώρηση:

• Στο φύλλο ΔΟΚΙΜΗ υπάρχουν δύο πίνακες: ο πρώτος (με τις δύο κίτρινες στήλες) που αφορά την καταχώρηση των εγγραφών σου και ο δεύτερος (πράσινος) που θα περιέχει όλους τους ΚΑΕ. Οι κίτρινες στήλες περιέχουν τύπους.
• Στη στήλη ΚΑΕ θα πληκτρολογείς τον ΚΑΕ και δίπλα θα εμφανίζεται η περιγραφή του (αν όχι, τότε δεν υπάρχει στον πράσινο πίνακα).
• Στις υπόλοιπες λευκές στήλες καταχωρείς τα υπόλοιπα δεδομένα των εγγραφών.
• Με το φίλτρο θα μπορείς να κρατάς ή να αναζητάς πολύ γρήγορα ό,τι χρειάζεσαι σε κάθε στήλη.
• Με την ταξινόμηση θα μπορείς να συγκεντρώνεις, μετά την καταχώρηση, όλες τις εγγραφές του ίδιου ΚΑΕ μαζί.