Sorting And Renumbering A List

I have a spreadsheet with a list of jobs in it, with a bunch of columns describing various aspects of the job. (Supervisor, department, etcetera.)

I also have a priority column.

What I'm looking for is to have my list renumber itself when I change the priority on jobs.

For example:

Priority Job Name Supervisor
1 Dig Ditch Ben
2 Fix Window Sira
3 Check C2 Cory
4 Check SS Ben

Let's say I change "Check C2" to be priority 1, I would like my priority list to re-order itself to:

Priority Job Name Supervisor
2 Dig Ditch Ben
3 Fix Window Sira
1 Check C2 Cory
4 Check SS Ben

Also, bear in mind that the list might not always be sorted by priority. It is just as likely to be sorted by Supervisor or one of the other columns not mentioned here. Data Validation keeps the numbers whole & positive.

My problem is mostly thus...

I try and capture the change through Worksheet_Change. However, each time it increments one of the priorities, it runs the Worksheet_Change event again, giving me priorities in a nice Fibbonacci-looking sequence. Aesthetically & mathematically interesting, but totally incorrect.

Also, for some reason, if I delete the last job (or just the priority of the last job), it never terminates the code, and runs, incrementing the code and pushing my priorities up & up & up.

This is my

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
If Chr(Target.Column + 64) = PriorityColumn And Target.Row > SortRow Then
Dim Changed As Boolean
Dim Max As Integer: Max = 0
Dim i As Integer