Most compact/efficient VBA to do this?

[chuckles1066]

I can do some of this via the macro recorder but it seems to insert all sorts of random, seemingly irrelevant lines of code.

Columns A-G contain data, the number of rows changes from month to month.

I need to sort based on column G (ascending) and then column F (descending).

I then need to run through the data, grabbing the top 20 values in column F for each of four values in column G.

This data is then pasted into columns J and K.

Column G contains either East, North, South or West.

To clarify; having sorted on column G and then F, the top x rows will be for East with the highest at the top so it's a simple matter to grab the top 20 (rows 2-21).

But then I need to identify where the last value for East ends and the first value for North begins and then grab the top 20.

And so on.

Any takers?

TIA.

 

[cjcobra]

In your macro, I would sort the entire columns on G & F. That code will hold no matter how long the numbers. I would then start at your first item in the list. "IF" it equals "East", I would offset one cell right, capture the cell value, then move another cell right, and paste the value. Then offset back to the original, offset down one, and so on until you loop out of "east", then move on to looking for North, and so on.