[ChrisGT7]

Εντόπισε στον κώδικα αυτή τη γραμμή:
If Target.Count > 1 Or Target.Row = 1 Or Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub

και άλλαξε το D:D (όπως εξήγησα προηγουμένως) στις στήλες που ο χρήστης πρέπει να επιλέγει τις διάφορες τιμές.

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