Copy data from one column and create a new one

I've been working with a macro that I have inherited and I'm trying to make some updates to help with some changes that have been made in the department.

I have data in column AE, which is titled 'crs_cde' (see below).

crs_cde
JOUR 103 D A
JOUR 101 D A
JOUR 101 O A ON
JOUR 215 D B
JOUR 317 D A
JOUR 341 D A
JOUR 541 D A
JOUR 215 D A
JOUR 280 D A
JOUR 280 D B
(note that this is just a sampling. I pull this data from an internal system at various times, so the length of the column fluctuates)

I would like to split this data into two new cells, while retaining the original data in the original cells.

Basically, I want to take the 'JOUR' data and put it in a new column titled 'Course Cde' (column BP) and the 'D A', 'O A ON', etc data into a new column titled 'Course Sec' (Column BQ).

I'm new to macros, so I'm having a difficult time writing a code that will help me achieve this goal. Any help would be greatly appreciated.

Thank you!

For 'Course Cde'

=LEFT(A2,FIND(" ",A2)-1)

For 'Couse Sec'

=RIGHT(A2,LEN(A2)-FIND(" ",A2,1+FIND(" ",A2)))

THAT IS ASSUMING the data you are splitting is in the A column - you would put that formula in row 2 and copy down. This also assumes you will ALWAYS have 'Course Cde'(space)'number'(space)'course sec' in your data column (it's breaking up the string based on where the spaces occur).

You don't need a macro to do this. If your data were in Column A, then in Column B =Left(A1,8) and copy down. In column C, =right(A1,len(A1)-8) and copy down.

Glad to help:


Please mark your thread [SOLVED]

(how to do that)
To mark your thread solved do the following:
New Method
-Go to the top of the first post
-Select Thread Tools
-Select Mark thread as Solved

Old Method
- Go to the first post
- Click edit
- Click Advance
- Just below the word "Title:" you will see a dropdown with the word No prefix.
- Change to Solve
- Click Save