[gr8styl]

Καλησπέρα σας και από μένα.
εκτός του ότι δεν καταλαβαίνω γιατί να σπάσουμε (split) κάτι που ενώσαμε με την Concatenate !!!
δεν καταλαβαίνω και γιατί χρειαζόμαστε VBA αφού οι τύποι:

G1=LEFT(E1;SEARCH(B1;E1)-1) 
και 
H1=RIGHT(E1;LEN(E1)-SEARCH(B1;E1)-LEN(B1)+1)

στις στήλες G και H αντίστοιχα δίνουν το επιθυμητό (το διαχωριστικό είναι στην στήλη Β).

Ή απλά μέσω μενού κείμενο σε στήλες με διαχωριστικό την παύλα (κελί e1 στα g1 και h1)

 Sub Split_paula()
    Application.CutCopyMode = False
    Range("e1").TextToColumns Destination:=Range("g1"), _
        DataType:=xlDelimited, Other:=True, OtherChar:="-"
End Sub

Ελπίζω εσείς να ξέρετε το γιατί.
Τα λέμε.
Θανάσης.