Macro Eliminazione righe

[Sav90]

Devo creare una macro in Excel che mi cancelli una riga si e una no,ma nell'area selezionata in precedenza

io ho questa

Sub eliminariganext()
For i = 100 To 1 Step -2
Selection.Rows(i).EntireRow.Delete
Next i
End Sub

ma,va a cancellare tutte le righe una si e una no fino alla centesima dal punto di selezione,io invece voglio che finita l'area di selezione non cancelli più niente

Grazie