Saxman wrote:

myRngToSort.Sort _
key1:=.Columns(KeyCol1), order1:=xlAscending, _
key2:=.Columns(KeyCol2), order1:=xlAscending, _
key3:=.Columns(KeyCol3), order1:=xlAscending, _
header:=xlNo

This sorts column 'J' ascending. Ideally I would like it descending. I
assume I can alter the code to descending in the above?

I've replaced the above with descending and column 'J' sorts fine.

Once 'J' has been sorted ascending would it be possible to rank them
1,2,3, etc. in column 'N'.

By this I meant the AutoFill function and FillSeries.