Aynı sütunda sıra no verme ve büyük harfe çevir sorunu

[YILDIZ YAĞMURU]

Aşağıda ki kod hatasız çalışıyor b5:b55 hücrelerine sıra no veriyor , by5:cc55,ce5:cg55 hücrelerindeki harfleride büyük harfe çeviriyor
fakat aynı kodu b5:b1000 hücrelerinde sıra no ve b3:b1000 hücrelerinde de büyük harfe çevirme yaptıramıyorum.
yani sütunlar değişince kodun bir kısmı çalışıyor bir kısmı çalışmıyor..
b5:b1000 sıra no
b3:b1000 küçük harf büyük harfe çevir olarak nasıl yapılacağını bir türlü yapamadım yardımcı olursanız sevineceğim şimdiden teşekkür ederim


Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

Dim s As Long, i As Long

If Intersect(Target, Range("B5:B55,By5:cC55,CE5:CG55")) Is Nothing Then Exit Sub

If Target.Column = 2 Then
For i = 5 To Range("b55").End(3).Row
If Cells(i, 2).Value <> "" Then
s = s + 1
Cells(i, 1).Value = s
End If
Next i

If Target.Value = "" Then
Target.Offset(0, -1).ClearContents
End If
Else

Application.EnableEvents = False
Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
Application.EnableEvents = True
End If

End Sub

 

[YUSUF44]

Soruyu yanlış anlamışım, dikkate almayınız.

 

[YUSUF44]

Sıra numarası nasıl büyük harfe çevrilecek, aynı sütunda hem sıra numarası hem de metin mi olacak? Bir örnek dosyayla izah etseniz daha iyi olur galiba.