Separate data in a Cell using Macro.

Hi guys, I need help here.

I got a column of data in format as below:

Column 1:
ABC - AC123
ASD - DS335
BBC - KK311
SWT - TR735
TIM - DN849

Between two texts to be separate, there is a " - ", we can separate them with that symbol right?..The cells should be look like after separate shown belows:

Column 1:
ABC
ASD
BBC
SWT
TIM

Column 2:
AC123
DS335
KK311
TR735
DN849

What is the macro code to do this, anyone can help me?