Possible to disassemble a Column?

Hi all,
Is it possible to disassemble a column?

In an effort to make two spreadsheet into one same format, i came upon such a problem:
I need to make
ModelA - Red
ModelB - Red
ModelA - Blue
ModelA - Green

Into
Column 1
*******
ModelA
ModelB
ModelA
ModelA


Column 2
*******
Red
Red
Blue
Green

To put it short, i need to replace the "model - color" value with the model and then insert the color into a new column, my experiments with the macro thus far are unsuccessful as given my level of experience in Excel VBA, I have no idea what code to put even when I have a clear idea what to do

And to add the difficulty of the task, my manager wants the macro to be unspecific, as there might be new models in the future and he doesn't want to go through the trouble of writing another list of macro (possible one macro for each color, if things work like how i wanted them to be in my experiments) for the new models, so the macro have to work without referencing the model name, only the color

Is it possible to create a macro that does such a task?

Any help are greatly appreciated. Thank you very much.

the trick is to find a common "separator" and in this case it is -

Same thing but with VBA using the Split function..

See attached.. result shown on Sheet2.

Please Login or Register  to view this content.

VBA no loop.

Please Login or Register  to view this content.

Wow that was some quick response!
Thanks both of you, your solution solved my problem easily, thank you very much! :D

Ah, didn't refresh the page while i was studying the first two solution, thanks you as well, jindon

No problem and thanks for the rep.

You're welcome :D