Assign Unique ID, After Data Sorts

[reberryjr]

Is there a way to assign a unique key to records, after they have been sorted? I have code that currently reads the value of a cell in the last row and adds 1 to it. The issue is, I have to sort the same sheet, which will inevitably cause the numbers to become non-sequential. I was thinking it may have something to do with a MAX function, but I'm not seeing anything on this forum or google, that guides me there. Thoughts? Here is what I have so far:

If ws1.Range("D2") = "" Then    Me.txt_Key = "1"
Else
    Me.txt_Key = ws1.Range("D" & LastRow - 1).Value + 1
End If

 

[reberryjr]

Update on what I'm looking for, and where I'm at.

I've been able to assign a Unique ID based on the code below.

If ws1.Range("D2") = "" Then    Me.txt_Key = "1"
Else
    Me.txt_Key = ws1.Range("D" & LastRow - 1).Value + 1
End If

Me.txt_ClientID = Left(txt_First, 1) & Left(txt_Last, 1) & txt_Key

My concern is that the sheet being read can/will be sorted. This means that the data being read in the Key column will not stay in sequential order, resulting in duplicate key codes.

What I'd like to do is, have the code search through columns D, E and F to identify the instance with the same initials, and add 1 to the unique value.

[TABLE="class: grid, width: 600"]
<tbody>[TR]
[TD]Today[/TD]
[TD]Updated[/TD]
[TD]Status[/TD]
[TD]Key[/TD]
[TD]Client ID[/TD]
[TD]First[/TD]
[TD]Last[/TD]
[TD]Suffix[/TD]
[TD]Desired Client ID[/TD]
[/TR]
[TR]
[TD]12/28/17[/TD]
[TD]12/02/17[/TD]
[TD]Active[/TD]
[TD]1[/TD]
[TD]RB1[/TD]
[TD]Rob[/TD]
[TD]Burns[/TD]
[TD]Sr.[/TD]
[TD]RB1[/TD]
[/TR]
[TR]
[TD]12/28/17[/TD]
[TD]12/27/17[/TD]
[TD]Active[/TD]
[TD]2[/TD]
[TD]QJ2[/TD]
[TD]Quincy[/TD]
[TD]Jones[/TD]
[TD][/TD]
[TD]QJ1[/TD]
[/TR]
[TR]
[TD]12/28/17[/TD]
[TD]12/29/17[/TD]
[TD]Active[/TD]
[TD]3[/TD]
[TD]RB3[/TD]
[TD]Renee[/TD]
[TD]Burns[/TD]
[TD][/TD]
[TD]RB2[/TD]
[/TR]
</tbody>[/TABLE]