Is the error that you are receiving a "subscript out of range" error?
As far s I can tell, all your data is going to the one sheet, "TeamDavid" and is not being transferred to any other sheet.
In the meantime, have a look at this thread which I believe is a similar scenario to yours:-
The code in post #3 would be a better option but you would need to change line #6 to:-
If Intersect(Target, Columns(7)) Is Nothing Then Exit Sub
Let us know your thoughts.
It would also be a good idea to upload a sample of your work book to a free file sharing site such as DropBox, ge.tt or Sendspace and then post the link to your file back here. That way we can have a good look at what you are up against. Please use dummy data in the sample.