Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
Application.EnableEvents = False
Range("A7:A15000").ClearContents
No = 1
Select Case Target.Column
Case 1 To 6
For X = 7 To 15000
If Cells(X, 2) <> "" And Cells(X, 2) <> "" Then
Cells(X, 1) = No
No = No + 1
End If
Next
End Select
10 Application.EnableEvents = True
End Sub
Saygılar....!