Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim wb, sh, lr, rg As Range, str, f, tekN, rt, k
If Target.Columns().Count > 1 Or Target.Rows().Count > 1 Then GoTo ex
wb = ThisWorkbook.Name
sh = ActiveSheet.Name
lr = Workbooks(wb).Sheets(sh).Cells(Rows.Count, 3).End(xlUp).Row
If Target.Column = 3 Then
If Target.Value < 1 Or Target.Value > lr + 1 Or Target.Value = Empty Then GoTo ex
tekN = Target.Value + 1
rt = Target.Row
Application.CutCopyMode = False
Workbooks(wb).Sheets(sh).Rows(rt).Cut
Workbooks(wb).Sheets(sh).Rows(tekN).Insert Shift:=xlDown
For f = 1 To lr - 1
Workbooks(wb).Sheets(sh).Cells(f + 1, 3).Value = f
Next f
End If
If Target.Column = 1 Or Target.Column = 2 Then
rt = Target.Row
If Workbooks(wb).Sheets(sh).Cells(rt, 1) <> "" And Workbooks(wb).Sheets(sh).Cells(rt, 2).Value <> "" Then Workbooks(wb).Sheets(sh).Cells(rt, 3).Value = lr
End If
ex:
wb = ThisWorkbook.Name
sh = ActiveSheet.Name
lr = Workbooks(wb).Sheets(sh).Cells(Rows.Count, 3).End(xlUp).Row
k = 1
For f = 1 To lr - 1
If Workbooks(wb).Sheets(sh).Cells(f, 1) <> "" And Workbooks(wb).Sheets(sh).Cells(f, 2).Value <> "" Then Workbooks(wb).Sheets(sh).Cells(f + 1, 3).Value = k: k = k + 1
Next f
Application.EnableEvents = True
End Sub