Can we speed this up??

[Frankie_The_Flyer]

One of the worksheets in my workbook (Teams & Runners Data Form Entry) has 42 columns of information in it with a variable amount of rows.

I need to copy the information out of columns F, R, X, AD, AJ and paste them as a list in a second worksheet (Clash Check) so that all the they appear under each other in column B of "Clash Check", columns J, P, V, AB, AH, AN need to list in Clash Check in column C and columns G, M, S, Y, AE, AK list in column D of Clash Check. The whole lot is then sorted A - Z by column C.

The Code I currently have works but it takes an age to complete (like, cup of tea and a pee age!). I can watch the columns slowly fill in on the Clash Check sheet but once the job appears to be done, the sheet appears to freeze and I can't do anything with it, (which is where a lot of the time is being taken I think). It's not the power of the computer, so I think there may be something wrong with the Code.

My code then "should" go on to find duplicates in column C, but I've commented that out to try and speed things up without success.

Here's the Code

Please Login or Register  to view this content.

It may be that the code is trying to copy and paste complete columns rather than just up to the last row of data, but I'm not sure how to fix that either.

Any ideas why this takes so long to execute please?

Assistance really appreciated as usual!

Frankie

[Keebellah]

Hi, the code doesn't really look good, but how about attaching the file with the macros without it and to see what other settings you have in the file is hard to tell.
Probably events that need to be disabled, screen updating turned off, etc and it will help some, but a little more strcuture to te code will also help.
Add the following to the beginning

Please Login or Register  to view this content.

And this before the end sub

Please Login or Register  to view this content.

PS check for syntax errors but this is the main idea for starters

[bakerman2]

Try this for starters.

Please Login or Register  to view this content.

[Frankie_The_Flyer]

Thanks Bakerman2. You're Wizard!!!

[bakerman2]

You're welcome and thanks for rep+.