Auto-Sort: How to run more efficiently?

Hello Problem Solvers,

I have a worksheet with 57 columns that need to be sorted: 19 in columns in rows 3-22, 19 columns in rows 25-44, 19 columns in rows 47-66. At first I recorded a macro and repeated it for each column which looks like this (per column):

Please Login or Register  to view this content.

I thought this code seemed rather bulky so I found other code in these archives and now it looks like this (per column):

Please Login or Register  to view this content.

The second code is a lot more condensed, but takes longer to process and seems as though its on the verge of crashing the program. Also, whenever the macro runs (on open and every 30 minutes) it selects the "defects" worksheet. I have other code that returns the user to the worksheet they were viewing before it began sorting, but is there a way around viewing the "defects" sheet while it sorts?
Any suggestions to run a more efficient program are most welcome since this will be processing a lot of data.
Thanks in advance!

- Luke

Try it once Luke.

Please Login or Register  to view this content.