[ChrisGT7]

Καλημέρα Γιώργο,

Θεωρώ πως το ζητούμενό σου μπορεί να επιτευχθεί χωρίς VBA και μόνο με τη χρήση απλών τύπων και μορφοποίησης υπό όρους.

Ρίξε μια ματιά στο συνημμένο αρχείο αν σε καλύπτει κι αν όντως χρειάζεσαι μόνο VBA, τότε με ενημερώνεις.

Έχω βάλει όριο μέχρι το 500. Για περισσότερους αριθμούς, απλά τράβα το τελευταίο κελί της στήλης Ι ή σβήνε τις περιττές γραμμές για λιγότερους.