Copy Up To Top 10 To New Worksheet

[Timbo]

This is a bit complex so I'll try and be as clear as I can, I reall
hope someone can help as my job is at risk at the moment and a lo
depends on me getting as much work done as quickly as possible

I have attached a workbook with some raw data as an example.

I need to copy the data to a New Worksheet called Base_Data_2 so that
don't lose the original data.

Then I need to find the top 20 code groups based on the total Value i
Column H. I have used a sumif in column O. But I expect there is
better way.

Code VS has the highest overall value and I need to copy all of th
rows with a VS in column N to a new worksheet called Category_01.

I then need to sort the data by column H Descending and delete any dat
below row 10 leaving me with the top 10.

Then move on to the code with the second highest overall value and cop
all of the rows with a CJCR code (just one in this case) in column N t
a new worksheet called Category_02.

I need to do this for the top 20 groups of codes in descending value
(Note: for some of the data there might not be 20 groups of codes)

At the end I need to bring all of the data into a Summary Sheet copyin
from Category_01, Category_02 ect to a Summary sheet.

All help much appreciated

+-------------------------------------------------------------------
|Filename: Example.xls
|Download: http://www.thecodecage.com/attachment.php?attachmentid=26
+-------------------------------------------------------------------

 

[Mike]

Timbo,
I have downloaded your workbook and I have to say I have no idea of what you
are trying to do. For starters: Column O is a Numeric column. What does
proper do for you?
For Each x In Range("O:O")
' There is not a Proper function in Visual Basic for Applications.
' So, you must use the worksheet function in the following form:
x.Value = Application.Proper(x.Value)
Next