[jose]

Καλημέρα και Χρόνια Πολλά !

ενα σημείο με δυσκολεύει,

''αντιγράφει'' μέχρι το τέλος ,μεχρι και την 1048576 σειρα !!

και ''ξεχυλώνει'' το φύλλο

Το ίδιο αντιμετωπιζω και με το split κελιου px "A-S"

με την ( που βρηκα στο net )

Dim arr As Variant, i As Long
With Sheets("DATA")
arr = .Range("BB6:BB6" & .UsedRange.Rows.Count)
For i = 1 To UBound(arr)
.Range("EC6" & i & ":ED6" & i).Value = Split(arr(i, 1), "-")
Next i
End With

To split ειδικα σε ενα δοκιμαστικό φύλλο δούλευε μια χαρά
και ξαφνικα μου πηγαινει και αυτο μεχρι την τελευταια σειρα
Αδυνατον να το κατανοησω,

Είναι και οι τελευταιες απορίες που εχω σε αυτό που εργάζομαι.
Οτι άλλες απορίες ειχα, διαβάζοντας εδω τα περασμένα θεματα
βρηκα λυσεις , και από έρευνα στο δαδυκτιο βεβαια