Need Macro to Duplicate Rows based on input

Hi Geniuses of Excel Forum! I have quite the project I could use your help with. At current, I have a spreadsheet with a list of 8,000 store addresses. What I need to do is duplicate each addresses 2 times to have a total of 3 of each address. Any way to write a macro for this? Example below:

Currently have:

• Store A
• Store B
• Store C

Need to have:

• Store A.1
• Store A.2
• Store A.3
• Store B.1
• Store B.2
• Store B.3
• Store C.1
• Store C.2
• Store C.3

Hi there,

See if the following code does what you need:

Please Login or Register  to view this content.

The highlighted values may be altered to suit your own requirements.


Hope this helps - please let me know how you get on.

Regards,

Greg M

FWIW:

Please Login or Register  to view this content.

Thank you for replying to my question. Although the code provided did accomplish what I asked for, I wasn't completely clear on what the objective was. Here is the real life version of what is needed if you wouldnt mind helping again.

I work for a protein bar company and we sell two flavors in all 7-elevens convenience stores around the US. I need to upload a spreadsheet to my retail locator that has each location listed twice: once with flavor a, once with flavor b.

At present i only have a list of 6,000+ 7-eleven stores with one row for each store. The objective is to duplicate each row so that the list becomes 12,000 rows with each store listed twice. Rather than manually copying and pasting I was curious if a macro could take care of this.


Current List
7-Eleven 30 N. SUMMERLIN AVE Orlando FL 32801 (407)423-2912
7-Eleven 2609 S DELANEY AVE Orlando FL 32806 (407)423-3570
7-Eleven 1500 EDGEWATER DR Orlando FL 32804 (407)841-0658
7-Eleven 723 NORTH MILLS AVE Orlando FL 32803 (407)894-0887

What the outputted list should look like
7-Eleven 30 N. SUMMERLIN AVE Orlando FL 32801 (407)423-2912
7-Eleven 30 N. SUMMERLIN AVE Orlando FL 32801 (407)423-2912
7-Eleven 2609 S DELANEY AVE Orlando FL 32806 (407)423-3570
7-Eleven 2609 S DELANEY AVE Orlando FL 32806 (407)423-3570
7-Eleven 1500 EDGEWATER DR Orlando FL 32804 (407)841-0658
7-Eleven 1500 EDGEWATER DR Orlando FL 32804 (407)841-0658
7-Eleven 723 NORTH MILLS AVE Orlando FL 32803 (407)894-0887
7-Eleven 723 NORTH MILLS AVE Orlando FL 32803 (407)894-0887

Does this help?

Please Login or Register  to view this content.

this is 99% there. It does not copy the first row of stores. More speficically:

Starting List

Store A
Store B
Store C

After running macro

Store A
Store B
Store B
Store C
Store C

Is the first store on row 1? I assume there was a header.