Boş Hücrenin Satırını Komple Silmek

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki kod sayesinde ara satırlardan birinde E sütununda boş hücre olması halinde o satırı komple siliyor. Ancak bu silme işleminin 4.satırdan başlaması için kodu nasıl değiştirmek lazım acaba ?

Örnek dosya linki : http://s7.dosya.tc/server14/u6if63/BOS_HUCRENIN_SATIRINI_SIL.xls.html

kod :
Sub silsatir()
For satir = [E100].End(3).Row To 1 Step -1
If Range("e" & satir) <= 0 Then Rows(satir).Delete
Next
satir = [a100].End(3).Row
For i = 2 To satir
Next
End Sub

 

[çıtır]

Silme işlemine 100. satırdan başlar 4.satırda bitirir. Yani to 1 i 4 yapınız.

For satir = [E100].End(3).Row To 4 Step -1

 

[baydeniro]

çıtır üstadım, yardım için çok teşekkür ederim, sağlıcakla kalın

 

[çıtır]

çıtır üstadım, yardım için çok teşekkür ederim, sağlıcakla kalın

Rica ederim.Dönüşünüz için teşekkür ederim.