Satır silme

[alipinar]

Merhabalar arkadaşlar. Aşağıdaki kodlar Dersler sayfası I4 hücresindeki sayı kadar sayfaya satır ekliyor.
Sorum şu: Bunu tersden alırsak yani belirtilen sayı kadar satır silmek istersek bunun kodu nasıl olmalı?
Yardımlarınız için teşekkür ederim. İyi çalışmalar

m = Sheets("DERSLER").Range("I4")
For i = 0 To m - 4
Range("A4").Select
Selection.EntireRow.Insert
Next i

 

[Levent Menteşoğlu]

"insert" yerine "delete" yazarak deneyin.

 

[alipinar]

Üstad çok teşekkür ederim. Bu kadar basit olacağını tahin etmiyordum. Tekrar teşekkür ederim.