in an empty column, (assume F), in F1 put the formula
=mod(row(),2)

then drag fill down the column for as far as you have data.

Now select the column and do Data=Filter=Autofilter

in the dropdown that appears in F1, select 0

Now only the even rows will be visible. Click on F2, then hold down the
shift key and click on the last visible row that you want deleted

then do Edit=Delete and select entirerow. Then do Data=Filter=Autofilter
(to turn off the filter) and the even rows should be gone

--
regards,
Tom Ogilvy


"Ìì·½" wrote in message
...
I am a newbie.

I am not familiar with the VBA

Any one can tell me how to do that?