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

Please Login or Register  to view this content.

[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:

Please Login or Register  to view this content.

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

Please Login or Register  to view this content.

[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)

Please Login or Register  to view this content.

[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.

Please Login or Register  to view this content.

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