The key is to work from bottom up. Try this idea

for i= cells(rows.count,"a").end(xlup).row to 2 step -3
rows(i).delete
next i

--
Don Guillett
SalesAid Software

"Quco" wrote in message
...

I need a Macro to erase particular rows in a given pattern, but I can't
find
one on the web. We are testing a new data collector and the raw data can
be
opened in Excel. The problem is, we have 30000+ rows of data, but we only
need rows 1, 5, 9, 13, 17, 21 and so on... deleting every three rows
manually
is taking forever.

I have to say I'm not used to the macros, but I think I can figure out how
to run one using the spreadsheet.

Can someone give me any suggetsions?