Makro ile sıra numarası verme

[turgayzeynep]

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Calculate
Dim RaBereich As Range, RaZelle As Range
Application.EnableEvents = False
Set RaBereich = Range("b1:BP1000 ")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
RaZelle.Value = UCase(RaZelle.Value)
End If
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub




Hocam bu makroya ilaveten b3 satırı dolu olduğu zaman A3 satırına otomatikmen sıra numarasını yazmasını istiyorum rıca etsm yardımcı olurmusunuz