Registra queste due macro, userai poi quella che ti serve.
Apri il foglio in cui vuoi cancellare le righe. Al posto di 10 metti il valore corrispondente all'ultima riga. Nel caso debba cancellare righe dispari metti il valore delle righe -1.
P.S. Per precauzione fai prima una copia di backup del tuo file.

codice:
Sub eliminapari()
For i = 10 To 2 Step -2
     ActiveSheet.Rows(i).EntireRow.Delete
Next i
End Sub


Sub eliminadispari()
For i = 9 To 1 Step -2
     ActiveSheet.Rows(i).EntireRow.Delete
Next i
End Sub