Wanting to sort column using VBA

[MistakesWereMade]

So I have a command button that when clicked, I would like to sort a cell range in a worksheet.

For some reason, my cells are not sorting using my code below. Any suggestions?

Sheets("Formula Data").Range("I2").Value = rowNum1
Sheets("Formula Data").Range("I3").Value = rowNum2
Sheets("Formula Data").Range("I4").Value = rowNum3
Sheets("Formula Data").Range("I5").Value = rowNum4
Sheets("Formula Data").Range("I6").Value = rowNum5


Application.EnableEvents = False


For u = 1 To 1


    On Error Resume Next


    Sheets("Formula Data").Range("I1:I6").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlYes
    
Next u


Application.EnableEvents = True

 

[Joe4]

What are the values of rowNum1 - rowNum5?

What is the purpose of the loop (since going from "1 to 1" is just doing it once, no need for a loop)?

Try temporarily commenting out the "On Error Resume Next" line (that way if it is encountering any errors, you will see exactly what they are).

 

[Twollaston]

    Sheets("Formula Data").Range("I1:I6").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlYes

You can try this

    Range("I2").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("Formula Data").AutoFilter.sort.SortFields.Clear


    With ActiveWorkbook.Worksheets("Formula Data").AutoFilter.sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("I1:A6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Apply
    End With

 

[MistakesWereMade]

Thanks for the help guys. I took away the On error resume next bit and got an error message that helped me figure out my issue. It was not sorting because key1:=Range was looking for I1 in the wrong worksheet. A lot harder if you don't have the error message. I should have posted! Thanks for the help anyways!

Below is my code change.

Sheets("Inventory").Range("I1:I6").Sort Key1:=Sheets("Inventory").Range("I1"), Order1:=xlAscending, Header:=xlYes