Procedure too large

Hi All

is there a way to reduce this procedure? im getting an error message telling me it is too large, can I adapt the variables to accommodate copying the inputs into the next 52 rows? rather than writing the code as it is?

Please Login or Register  to view this content.

This is only part of the code, it is too long to post, and the workbook is 28,831kb so to big to attach as an example

a bit more of the code......

Please Login or Register  to view this content.

Hi

Great thank you both, I managed to get it to work by using both of the suggestions, so now I have two codes that do the same thing, i had to keep the first part of the code where .value = 1,2,3,4,5,6,7,8,9,10,11,12, or 13, and the same with the 1,2,3,4 but all works perfectly now, thank you

Hi I thought this was working but it seems to be stopping at row 50, and not doing the 52 weeks worth, even thought -1 to 50 is 52......

Also once it has added one part in, it doesn't add onto the list so from cell, 58 onwards, most of it works ok, but something seems missing and I have tried moving things around and messing around with the figures just wondering if anyone has any suggestions?....

This is what it is looking like as you can see it stops at row 50 but should go up to 57

Image1.JPG

I am using this code

Please Login or Register  to view this content.

ignore that, I sussed it out I missed the loop