Split and create headings...I am so stuck! Shout out to Rick Rothstein---you've helped me so much!

[CastingDirector]

Several months ago Rick Rothstein gave me the greatest help...I've now lost the code (too many incarnations). I pray someone can help.
Previous thread link Mr Excel: http://www.mrexcel.com/forum/excel-questions/852124-can-you-help-me-split-cell-use-first-part-new-row-heading.html

Here is a Before and after of what I am looking for. The Split in column E should create a heading with first part of split--listing the actors for that part (column c).
The second part of the split (string) should remain with the listed actor in the same row, column E.

As the code is now (above) it works the first time through but is messed up when other rows are copied onto the sheet or the sheet is viewed (activated when opened). I would like to add additional names via copy/past from other sheets to add to existing headings.
Arrgggg!

Any help is so gratefully acknowledged!

Status		Actor Name	Agent	Role/Notes
	From this: (Sorted in another sheet macro):
PASS	07/21/15 4:26 PM	Actor C	Rep Data	Alice/TV pilot
NAA-Tape	07/21/15 4:26 PM	Actor H	Rep Data	Alice/Will tape
NAA	07/21/15 4:26 PM	Actor G	Rep Data	Bob/Has TV show
PASS	07/21/15 4:26 PM	Actor A	Rep Data	Bob/Will tape
NAA	07/21/15 5:05 PM	Actor F	Rep Data	Carol/Can't leave town
NA	07/21/15 4:26 PM	Actor E	Rep Data	Carol/No to script
NA	07/21/15 4:42 PM	Actor D	Rep Data	Ted/Has another project
NAA	07/21/15 4:40 PM	Actor G	Rep Data	Bob/Has TV show
NA	07/21/15 4:40 PM	Actor E	Rep Data	Carol/No to script
PASS	07/21/15 4:41 PM	Actor B	Rep Data	Ted/No to script
NAA-Tape	07/21/15 4:42 PM	Actor I	Rep Data	Ted/No to script
	To This:
		Alice
PASS	07/21/15 4:57 PM	Actor C	Rep Data	TV pilot
NAA-Tape	07/21/15 4:57 PM	Actor H	Rep Data	Will tape
		Bob
NAA	07/21/15 4:57 PM	Actor G	Rep Data	Has TV show
PASS	07/21/15 4:57 PM	Actor A	Rep Data	Will tape
		Carol
NAA	07/21/15 4:56 PM	Actor F	Rep Data	Can't leave town
		Ted
NA	07/21/15 4:58 PM	Actor E	Rep Data	No to script
NA	07/21/15 4:54 PM	Actor D	Rep Data	Has another project
PASS	07/21/15 4:54 PM	Actor B	Rep Data	No to script
NAA-Tape	07/21/15 4:54 PM	Actor I	Rep Data	No to script
PASS	07/21/15 4:54 PM	Actor C	Rep Data	TV pilot
	IF POSSIBLE ADD: (repeats those who indicate "will'' Tape")
		Will TAPE
NAA-Tape	07/21/15 4:54 PM	Actor H	Rep Data	Will tape
PASS	07/21/15 4:54 PM	Actor A	Rep Data	Will tape
PASS	07/21/15 5:00 PM HERE IS THE CODE THAT ALMOST WORKS:	Actor A	Rep Data	Will tape [COLOR=blue]Sub[/COLOR] reorg() [COLOR=blue]Dim[/COLOR] sh [COLOR=blue]As[/COLOR] Worksheet, lr [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], spl [COLOR=blue]As[/COLOR] [COLOR=blue]Variant[/COLOR], fn [COLOR=blue]As[/COLOR] Range, i [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR] [COLOR=blue]Set[/COLOR] sh = Sheet4 [COLOR=blue]With[/COLOR] Rows("7:99") lr = sh.Cells(Rows.Count, "E").End(xlUp).Row [COLOR=blue]For[/COLOR] i = lr [COLOR=blue]To[/COLOR] 2 [COLOR=blue]Step[/COLOR] -1 spl = Split(sh.Cells(i, 5).Value, "/") [COLOR=blue]If[/COLOR] Application.CountIf(sh.Range("C:C"), Trim(spl([COLOR=blue]LBound[/COLOR](spl)))) > 0 [COLOR=blue]Then[/COLOR] [COLOR=#006400]'// Color Tag Removed[/COLOR] [COLOR=blue]Set[/COLOR] fn = sh.Range("C:C").Find(Trim(spl([COLOR=blue]LBound[/COLOR](spl))), , xlValues, xlWhole) [COLOR=blue]With[/COLOR] fn .Font.Bold = [COLOR=blue]True[/COLOR] .Font.Size = 14 [COLOR=blue]End With[/COLOR] [COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] fn [COLOR=blue]Is[/COLOR] [COLOR=blue]Nothing[/COLOR] [COLOR=blue]Then[/COLOR] Rows(i).Copy fn.Offset(1, 0).EntireRow.Insert fn.Offset(1, 3) = Trim(spl([COLOR=blue]UBound[/COLOR](spl))) Rows(i).Delete [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] [COLOR=blue]Else[/COLOR] sh.Rows(i).Insert sh.Range("C" & i) = Trim(spl([COLOR=blue]LBound[/COLOR](spl))) sh.Range("E" & i + 1) = Trim(spl([COLOR=blue]UBound[/COLOR](spl))) [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] [COLOR=blue]Next[/COLOR] i [COLOR=blue]End With[/COLOR] [COLOR=blue]End Sub[/COLOR]

<tbody>
</tbody>