Text to rows

This is the current code I use:

Sub SplitAndTranspose()
Dim N() As String

   N = Split(ActiveCell, " - ")
   ActiveCell.Resize(UBound(N) + 1) = WorksheetFunction.Transpose(N)

End Sub

This takes a cell that I have selected and it essentially does text to rows by anything separated by a Hyphen (-). I need to expand on this idea and apply it to multiple cells but I am not sure how to. Currently I have a spreadsheet where I dump data into and that data range is A1:J50. The spreadsheet has headings in columns A-J and the columns E-J contain data that is separated by a Hyphen(-)> not Only do I need it to take the data in E-J and do a text to rows, I also want it to create a new row for each item that is separated so that it does not overwrite the data in the rows below which this current code does. Any help is appreciated. I have attached a sample sheet below.