Sort (Z-A) Macro not working

[gomes123]

I've got a macro below, row 2 is the heading (in a table), and I'd like to (in priority) filter I2:
select the criteria UP, DOWN, LEFT, RIGHT,
sort Z-A (descending).
Then filter J2:
sort Largest to smallest

The macro is able to filter UP, DOWN, LEFT, RIGHT, but doesn't seem to sort from Z-A.
Any ideas why? Thanks!

Sub Breakthrough()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Main")
 
    Dim LastRow As Long
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
 

    ws.Range("I3").Formula = "=IF(AND(E3>C3,G3>E3,F3>D3,H3>F3),""UP"",IF(AND(C3>E3,E3>G3,D3>F3,F3>H3),""DOWN"",IF(AND(E3>C3,G3>E3,D3>F3,F3>H3),""RIGHT"",IF(AND(C3>E3,E3>G3,F3>D3,H3>F3),""LEFT"",""NO""))))"

    Range("C3:L" & Range("A" & Rows.Count).End(xlUp).Row).FillDown
 
    Range("I2").Select
    Dim LastRow2 As Long
LastRow2 = Range("A" & Rows.Count).End(xlUp).Row
Selection.AutoFilter
ActiveSheet.Range("$A$2:$L$" & LastRow2).AutoFilter Field:=9, Criteria1:=Array( _
        "DOWN", "LEFT", "RIGHT", "UP"), Operator:=xlFilterValues
ActiveWorkbook.Worksheets("Main").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Main").AutoFilter.Sort.SortFields.Add Key:=Range( _
"J2:J" & LastRow2), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Main").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 
End Sub

 

[NateSC]

The FillDown caused me issues with your macro. It simply copied the top row all the way down throught the range. Other than that it seemed to work. I commented out the following statement and then it worked. If you need this for a reason, step through and make sure this step is doing what you want it to do.

Range("C3:L" & Range("A" & Rows.Count).End(xlUp).Row).FillDown

Here is the random data I created for testing. I had column A sorted numerically before running the macro. I tried it with numbers and letters in Column J.

Book1
	A	B	C	D	E	F	G	H	I	J	K	L
2	num1	num2	num3	num4	num5	num1	num2	num3	num4	num10	num11	num12
3	6	3	24	39	20	30	14	25	DOWN	999	321	456
4	3	6	24	20	25	18	26	15	RIGHT	888	321	456
5	7	2	24	20	25	18	26	15	RIGHT	777	321	456
6	4	5	24	39	20	40	14	41	LEFT	666	321	456
7	5	4	24	39	26	40	27	41	UP	444	321	456
8	8	1	24	39	20	40	14	41	LEFT	333	321	456
9	2	7	24	39	20	30	14	25	DOWN	222	321	456
10	1	8	24	39	26	40	27	41	UP	111	321	456
Main

Cell Formulas
Range	Formula
I3:I10	I3	=IF(AND(E3>C3,G3>E3,F3>D3,H3>F3),"UP",IF(AND(C3>E3,E3>G3,D3>F3,F3>H3),"DOWN",IF(AND(E3>C3,G3>E3,D3>F3,F3>H3),"RIGHT",IF(AND(C3>E3,E3>G3,F3>D3,H3>F3),"LEFT","NO"))))