Suggestions for speeding up macro run time

Hi all,

First off, I've been coming to this forum for a long time as a guest and it has helped me tremendously!

Now I have something that I'm hoping the community can help me out with; I've created a macro to perform several functions on a spreadsheet with multiple pages. The script works as expected but takes a very long (10min+) time to run making it largely counterproductive. I'd like to see if there are any suggestions for lightening the script or possible redundancies that I'm not seeing that could be contributing to the long run times (keeping in mind that there can be over 30,000 ro. Here's the details of what it does:

Add new column to sheet1 and insert the word Apple on each line where there is data
Select all cells with data and copy them.
Paste to sheet2 at a specific location
Erase the new column on sheet1
Add new column to sheet3 and insert the word Orange on each line where there is data
Erase extra spaces in one of the columns (this was due to the way the data imports)
Select all cells with data and copy them.
Paste to sheet2 below the data pasted from sheet1
Remove the extra spaces from one of the columns
Sort the data by the info in one of the columns
Copy a row of formulas in the adjacent cells to where the data was pasted on sheet2

The script is:

Please Login or Register  to view this content.

Any help with this would be greatly appreciated!

Hi, and welcome to the forum. Unfortunately your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

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, it also maintains VBA formatting.

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



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

@tim201110 please note

Originally Posted by niccio2

Sorry Richard, I've updated the orifginal post to reflect the code box.

...Noted. And thanks for the quick response.