[kolekas]

φίλε Σπύρο ο δεύτερο παράδειγμα μου κάνει και θέλω με κωδικά γιατί στα κελιά για να αλλάζω πράγματα στην θεραπεία άλλα κάτι δεν κάνω καλά στα πρώτα που πρέπει να βάλω τα νούμερα

Option Explicit
Const cellStart As Long = 46 'Φύλλο εκκίνησης κελιά από - έως
Const cellEnd As Long = 47
Const colDest As Long = 1 'Στήλη προορισμού (1 = a)
Const colPacks As Long = 9 'Φύλλο προορισμού «ντάνες» πχ 30
Const rowPacks As Long = 29 'Φύλλο προορισμού (που ξεκινάνε τα δεδομένα; γραμμή 29)