Insert multiple rows when range contains specific text

Question

I am trying to have a macro to run through a column of data and insert a row for every instance it counts a "," so for example it would insert another 3 rows above Joanne

I now have the following code, but it doesn't work, and I'm not sure I'm doing it right because I believe it expects "," to be the only information in the cell. Any assistance or advice would be much valued.

Sub InsertRow()
Dim cell As Range
For Each cell In Range("E2:E9999")
    If cell.Value = "," Then
        cell.EntireRow.Insert
    End If
Next cell
End Sub