Split and create sorted headings from first part of string

[CastingDirector]

Hi and thank you. Here is the dilemma...I need to
Split the last column and create a heading from the first part of the split with the "/" as seperator.
Then sort the heading alphabetically.
I Have this:

DATE	NAME	AGENT	ROLE/NOTE
1/21/2015	Actor A	wm	George/Likes script
1/22/2015	Actor D	ACA	Bob/Cannot travel
2/22/2015	Actor B	caa	Jimmy/Wife Pregnant
3/1/2015	Actor E	Wolf	George/ Won't fly
12/2/2014	Actor C	Slick	Jimmy/Working
12/21/2014	Actor F	wm	Bob/will work for food

<tbody>
</tbody>

I need this:
(Notice an added row to visually separate the "role" headings and if possible, make them bold.
Finally, new "Actors"will be added to the sheet multiple times via another pages' paste.)

DATE		NAME	AGENT	ROLE/NOTE
BOB
1/22/2015		Actor B	CAA	Wife Pregnant
1/21/2015		Actor F	wm	Will work for food
GEORGE
1/21/2015		Actor A	wm	Likes script
3/1/2015		Actor E	Wolf	Won't Fly
JIMMY
2/22/2015		Actor B	caa	Wife Pregnant
12/2/2014		Actor C	Slick	Working

<tbody>
</tbody>

I know this is alot and your help means the world to me

 

[VBA Geek]

with your table starting in A1, does this do what you want?

Sub mrExcel10022015()
Dim x As Long


Application.ScreenUpdating = False


With Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
    .TextToColumns , xlDelimited, xlTextQualifierNone, False, False, False, False, False, True, "/"
    .CurrentRegion.Sort .Worksheet.Range("D1"), xlAscending, , , , , , xlYes
End With


For x = Range("D" & Rows.Count).End(xlUp).Row To 2 Step -1
    If StrComp(Range("D" & x).Value, Range("D" & x - 1).Value, vbTextCompare) <> 0 Then
        Range("D" & x).EntireRow.Insert
        With Range("A" & x)
            .Value = Range("D" & x + 1).Value
            .Font.Bold = True
        End With
    End If
Next x
Range("e2:e" & Range("e" & Rows.Count).End(xlUp).Row).Cut Range("D2")
End Sub

 

[CastingDirector]

Thanks so much. This runs but needs tweaking (on my part I'm sure). The sheet contains a date column (not mentioned in my post for clarity :\) The range is actually "E10:E99". It is a pretty easy fix for me and for that I am so grateful for your help!

 

[CastingDirector]

Thank you. I am an idiot as I did not mention that there is another column (not posted for example clarity ;\). The range is actually "E10:E99" and is an easy fix I'm sure. Thanks you so much.
SOLVED

 

[VBA Geek]

no problem let me know if you encounter difficulties

 

[CastingDirector]

no problem let me know if you encounter difficulties

Hi,
I,m afraid I couldn't get this tweeked. The split cell does move into a bold heading into the new row as coded. The second part of the split, however, disappears completely and I need it to remain in the same position on the row. Also, when new data is added after the operation is performed, I am hoping that the row is inserted to the existing, established arrangement. Finally, the empty range begins in row 7 and is now starting above that. I guess I needed more assistance than I thought. I really appreciate your help.