Çözüldü Makro ile sıra numarası

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("C3:C65536")) Is Nothing Then
sat = Target.Row
If Target <> "" Then
Cells(sat, "s") = Format(Now, "dd.mm.yyyy dddd hh:mm")
Else
Target.Offset(0, 16).ClearContents
If Target <> "" Then
Target.Offset(0, -1) = WorksheetFunction.Max(Range("b3:b5000")) + 1
Else
End If
Target.Offset(0, -1).ClearContents
End If
Else
If Not Intersect(Target, Range("m3:n65536")) Is Nothing Then
sat = Target.Row
Cells(sat, "o") = Cells(sat, "m") / Cells(sat, "n")
Cells(sat, "p") = Cells(sat, "m") * 6 / 100

End If
End If

End Sub


Hayırlı Sabahlar.

Yukarıda arz ettiğim makroda
C3:C sütununda değişiklik olduğu zaman S sütununa tarih atıyor, ancak B sütununa sıra no vermiyor.
Yardımcı olabilir misiniz?

Saygı ile

 

[sirkülasyon]

Çözüldü