simplify code

I would love to simplify this code. It is extremely long and I have to have 3 macros to complete the full need for what I am doing. It is very repetative. I am inserting 6 rows between the information that I have on my data sheet. However, I now have the need for a 7th row to be added and do not want to have to go back through and manually edit every number if I can help it.

Please Login or Register  to view this content.

Thank you so very much.

I]Your post does not comply with Rule 1 of our Forum [/I]RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

I believe your title is accurate (shorter code is your goal) so hopefully the change you made is acceptable.

Play with this and see if you can get it to do what you want:

Please Login or Register  to view this content.

Post up your sample workbook with a couple of sheets showing BEFORE and AFTER so we can look at it together.

Click GO ADVANCED and use the paperclip icon to post up a desensitized copy of your workbook.

Your code and request indicates that you want to insert 7 rows between every row in your data

If this is correct then

Please Login or Register  to view this content.

However
It might be an idea to also try this as a more general approach

Please Login or Register  to view this content.

Called like this

Please Login or Register  to view this content.

This reads as

InsertRows:= beginning with row 4, insert 7 rows between each row of data, do this 18 times.

You can therefore add however many rows as you wish between each row of data
e.g.

Please Login or Register  to view this content.

inserts 5 rows 20 times


Hope this helps