Auto delete row in this specific pattern

Hi,

Can someone help me make a macro that would go through and delete rows in this pattern below:

1. Keep
2. Delete
3. Delete
4. Delete
5. Delete

6. Keep
7. Delete
8. Delete
9. Delete
10. Delete

Also, how would I trigger the macro?

Thanks,
truongn2

You might find a non-macro approach useful for similar problems.

Add new columns say A and B for data rows 1 to 100 (or whatever rows)
Put 1 in A1 and use Menu Edit: Fill: Series to place numbers 1 to 100 in A1 to A100.
Use a formula in B to calculate 0 for Delete or 1 for Keep, for each row. Fill Down to generate values in all rows of your data, or just paste the pattern of 0's and 1's that you need.
Sort the data rows into order on B. All the rows for deletion are now next to each other. Select them and Delete Rows.
Sort the remaining data on A to get back your original order. You can delete A and B.

I know this is the Programming Forum, but it can be tiring to write macros all of the time for unusual situations.