Update Sequential Numbers After Row Deletion

How do I get my worksheet (ServicePlan) to update column A (plan number) after deleting a the row from a userform. When I delete the row the plan numbers do not update.

Example: I delete plan #1 from the worksheet. The plan number #2 should now be amended to read plan #1 and the plan number for record #3 should now be amended to read Plan #2, however the plan numbers #2 and #3 remain the same.

Plan #Rv# Name:Dept: Rep:
11.1mikeEnvironmental Cathy S.
22.1TomCasualty Rich A.
3 1.5 Michelle Special Programs Diane

Here is the code I used for the delete plan # button. Thank you

Private Sub CommandButton15_Click()

If MsgBox("Are you sure you wish to delete this record?", vbYesNo, "Confirm Deletion") = vbYes Then

sheet1.Activate

Dim strFind
Dim Nullstring
Dim rSearch As Range 'range to search
Set rSearch = sheet1.Range("A2:A1000")
Dim c
Dim r As Long