Hit Alt+F11 to access VBA code. Then choose Insert: Module.
Type this code
Sub RemoveEvens()
Range("A65536").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.EntireRow.delete
ActiveCell.Offset(-2,0).Select
Loop
End Sub
This will start with the last row and delete every other row assuming there are no blank cells in Column A.