Çözüldü makro ile sıra no

Private Sub Worksheet_Change(ByVal Target As Range)
satir = Target.Row
sutun = Target.Column
a = 0
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("B2:B65536").ClearContents
If satir > 2 And sutun = 3 Then
    For i = 3 To Range("C" & Rows.Count).End(3).Row
        If Cells(i, 3) <> "" Then
            a = a + 1
            Cells(i, 2) = a
        End If
    Next i
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub