Auto Add Rows With Difference Names?

I found a code on here to add a row automatically, and it works ok... however on the same sheet i want to have difference people on the left , with tasks etc to the right of the person.

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = [TotalVal].Row - 1 Then Application.EnableEvents = False [TotalVal].EntireRow.Insert Application.EnableEvents = True End IfEnd Sub

I want to add tasks to each persons name and as the tasks grow a row is automatically added for that the next task.

so say i have 10 people on the column A with a row between them going down. i put the name (above A1) Then in the space/row i left after the first person i put the "name" so it has an end to find.

For the first name it works fine, i fill out a task and it moves down automatically.... when i go to the next name I cant get it to work the same as the first person, and wont allow me to use same name either.. so i am at a loss how to adjust the code for each name on my list so as tasks are added it moves down a row.