Excelde Sıralama Yaparken Hata

[mustafa1205]

Excel otomatik Sıralamada Hata

Ekte örnekte bulunan çalışmamda kodlarla sıralama sayfasında bulunan ortalama sütununa göre büyükten küçüğe doğru sıralama yapmak istedim oldu ancak boş olan satırları ensona atmasını yapamadım.Önce onları en üste alıyor.Bunların en sonda olmasını istiyorum.Bunu nasıl yapabiliriz acaba

 

[security]

Sub sırala()
Sheets("SIRALAMA LİSTESİ ").Select
Range("A3:E37").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B3").Select
End Sub

 

[mustafa1205]

Malesef olmadı rica etsem örnek üzerinde ekleyebilirmisiniz