satır atlayarak satır silme

[kemalist]

satır atlayarak satır silmek istiyorum sarı satırlar silinirken mavi satırlar kalsın ve mavi satır sayısı 300 olsun.
örnek dosya ektedir.
yardımlarınız için şimdiden teşekkür ederim...

 

[leumruk]

Merhaba,
Farklı bir yöntem denedim. Örnek dosyayı inceleyiniz.

Sub Satir_Sil2()
Sat = 1
Application.ScreenUpdating = False
Do
Sat = Sat + 1
Range("a" & Sat & ":b" & Sat + 4).Delete shift:=xlUp
SonSat = [a65536].End(3).Row
Loop While Sat < SonSat
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub