Mapping Data To Another Worksheet Based On A Cell Value

I created a sort of FORM worksheet that uses lookups to pull a bunch of information (so the user does not have to key it all in,) and transfers it to a second worksheet (database worksheet), when the user clicks a "Submit" button.

The functionality is fine when used by one individual, but I am now going to have 9 different users working within this Shared file.

I seem to have worked out any of the other kinks related to the Shared file, but I'm having one problem that I should have foreseen.

The code below is looking for the next available empty row in the database sheet and copying the data there.

My problem is that the file is not updated in real-time, so if entries are submitted in a narrow time-frame, the data is fighting for the same row, and deleting one row-item or another.

My question is, is there a way to modify what I already wrote to fix this problem?

If not--the solution that I am thinking of is creating NINE separate worksheets and mapping the data into those individualy.

So... IF we have Sally, John, Scott, Dave, Jenn They each have their own worksheet.

From looking at the below, I am thinking the best option would be obviously mirroring the template for each user, and modifying this portion:

VB:

Option Explicit
[U]Dim wsData As Worksheet
[/U]Dim wsForm As Worksheet
Dim wsPCD As Worksheet
Dim rNextCl As Range
Dim rNextC2 As Range

[Code]....

Will that work transitioning into the rest of the code? I'll assume that the above needs revised as I'm new to this all.

VB:

Option Explicit
Dim wsData As Worksheet
Dim wsForm As Worksheet
Dim wsPCD As Worksheet
Dim rNextCl As Range
Dim rNextC2 As Range

[Code]....