Makro ile Satır Silme Kod Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Bir excel çalışma kitabında İndirimler isimli çalışma sayfasında 5000 satırlık veri bulunmaktadır. İlk satır başlıktan oluşmakta, veriler ise 2. satırdan başlamaktadır.
Buna göre 2. satır kalacak, altındaki 6 satır silinecek ve bu döngü şeklinde 5000 satıra kadar uygulanacaktır.
Çok değerli yardımlarınızı rica ediyorum.

Saygılarımla.

 

[askm]

Sub askm()
Application.ScreenUpdating = False
Say = 1
For i = 2 To 5000
Say = Say + 1
If Say > 1 Then
    Rows(i).Delete
    i = i - 1
    
End If
If Say >= 6 Then
    Say = 0
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[Believing]

Sayın askm,

Konuya gösterdiğiniz ilgi ve yardımınız için size çok teşekkür ederim.

Saygılarımla.

 

[askm]

Rica ederim. Kolay gelsin.