Is there a way to optimize this loop?

Hello all, im pretty new to programming in VBA, and I was able to create a 3 layer loop, to populate cells from one column, using different cells from rows and cells. since I have a to populate around 1100 cells, mixing a set of say (89 rows of data) with 22 different preffixes.... I created the loop and it worked, but it is taking around 3 minutes to complete the population of 1100 cells... Im adding the script and also the result of what it should be.

Please Login or Register  to view this content.

This is the result: As you can see left three columns are being joined with the data column.

Try

Please Login or Register  to view this content.

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however we recommend that you include code tags around your code.

Please take a moment to add the tags. Posting code between [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Guideline #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here.

I have done it for you since it's your first post.

"ReDim" = re-dimension. It's necessary to increase the capacity of the array so that it can accommodate another element.
They "Preserve" keyword prevents what's already in the array from being lost.