Sorting with VBA

[johandenver]

Hello,

I use the code below to sort my data in a sheet. It kind of works but like to be able to sort it better.
If you look at the attached image I'd like all rows with empty cells to end up at the bottom of the table but can't seem to get this to work.
Does anybody have a good suggestion for doing that?2016-12-23 15_55_54-100m [reparerad] - Excel.jpg

        ActiveWorkbook.Worksheets("Startlist").Sort.SortFields.Add Key:=Range( _
        "L2:L25000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Startlist").Sort.SortFields.Add Key:=Range( _
        "K2:K25000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal

    With ActiveWorkbook.Worksheets("Startlist").Sort
        .SetRange Range("C1:L25000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

[johandenver]

This is a better pictures with columns also showing

Attachment 494610

[Logit]

.
.
If there will always be some data in the last column to the right, this code should work:

Sub srtMe()
On Error Resume Next
    Range("C10").Sort Key1:=Range("C11"), _
      Order1:=xlAscending, Header:=xlYes, _
      OrderCustom:=1, MatchCase:=False, _
      Orientation:=xlTopToBottom
End Sub

You can change the Range spec as required.

[Logit]

And this will sort on Col A

[johandenver]

Thanks for your answer. I think I should have added some more information to begin with though. The way I want it to work is this:

1. Column L will not always contain information and the rows that do contain information are the ones I need at the top of the table.
2. Column K contains a random value so that the rows are sorted on top but not always in the same order
3. The thing I'm missing is that I'd then like to have all rows containting some information but no text in column L appearing before all rows that are completely empty.

Sorry for not providing this info to begin with.

[mikerickson]

Perhaps

With Sheets("Sheet1")
    With Range(.Range("A1"), .Cells(.Rows.Count, 1).End(xlUp))
        With .Resize(.Rows.Count, 10)
            .Sort Key1:=.Cells(1, 3), Order1:=xlAscending, Header:=xlYes
        End With
    End With

    With .Range(Range("A1"), .Cells(.Rows.Count,3).End(xlup))
        With .Resize(.Rows.Count, 10)
            .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlYes, Key2:=.Cells(1,2), order2:=xlAscending
        End With
    End With
End With

[johandenver]

I also tried this, but it still does not sort it like I want it to:
(it still sorts like the screenshots I attached earlier)

   Columns("C:L").Sort key1:=Range("L2"), key2:=Range("K2"), key3:=Range("F2"), _
      order1:=xlAscending, Header:=xlYes

[Logit]

Help us understand more specifically ... you are sorting on Col L ? Cuz it will always have some kind of data in it ? That would be a strong key to go with, which Col always has data.

[johandenver]

Now I feel kind of stupid because I actually solved it myself with this code.
I just changed the order of the keys and things work like I want them to.

Columns("C:L").Sort key1:=Range("L2"), key2:=Range("F2"), key3:=Range("K2"), _
order1:=xlAscending, Header:=xlYes

Thanks for your attention and trying to help me

[johandenver]

Now I feel kind of stupid because I actually solved it myself with this code.
I just changed the order of the keys and things work like I want them to.

   Columns("C:L").Sort key1:=Range("L2"), key2:=Range("F2"), key3:=Range("K2"), _
      order1:=xlAscending, Header:=xlYes

Thanks for your attention and trying to help me

[Logit]

Great ! It's a good feeling when you figure it out.

Merry Christmas !

ps: Love your name. Reminds me of the singer John Denver