Otomatik Sıra Numarası Verme

Üstatdlar Hayırlı Günler...
Ekli Excel dosyasında otomatik sıralama yapıyorum ancak son kısımda görüldüğü gibi dolu gördüğü hücrelere de numara veriyor. Ne yapmam gerekiyor.

Şimdiden teşekkürler.

kodun mantığı bu;
Selection.SpecialCells(xlCellTypeLastCell).Row ile son satırı buluyor
7. satırdan itibaren de A<>"Sıra No" ve B boş değilse A'ya sıra no veriyor
hata nerede?
Not: sayın @HORZUM daha önceden de size aynı şeyi söylemiştim
sorun sizin sorununuz, sorunuzu net ifade etmezseniz yardımcı olamayız
sorununuza sahip çıkıp biraz emek harcayarak daha açıklayıcı, anşlaşılır ifadeler kullanın

(05/05/2023, 15:47)berduş yazdı: kodun mantığı bu;
Selection.SpecialCells(xlCellTypeLastCell).Row ile son satırı buluyor
7. satırdan itibaren de A<>"Sıra No" ve B boş değilse A'ya sıra no veriyor
hata nerede?
Not: sayın @HORZUM daha önceden de size aynı şeyi söylemiştim
sorun sizin sorununuz, sorunuzu net ifade etmezseniz yardımcı olamayız
sorununuza sahip çıkıp biraz emek harcayarak daha açıklayıcı, anşlaşılır ifadeler kullanın

Teşekkürler Sağolasın