excelde belli aralıktaki satırları silme

[ordulu82]

Merhabalar
ekteki örnekte olduğu gibi isimlerin arasında 3'er satırlık bir fark var. benim istediğim isimler arasındaki bu 3'er satırın hepsinin silinip, sadece isimlerin alt alta kalması.

 

[hamitcan]

Sub SayiysaSil()
    For i = [b65536].End(3).Row To 4 Step -1
        If WorksheetFunction.IsNumber(Cells(i, 2)) Then Rows(i).Delete
    Next
End Sub