Sorting Inventory in Columns B through T

[vmottert]

I am working on a macro to sort inventory several ways. The inventory items detail is in columns B:T. On either side of that are some formulas. The inventory list may get longer or shorter, so to select the inventory to sort I have ...

Range("B12").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select

This works fine, but the selected range includes several columns of formulas on the right that don't need to be sorted. Is there some way to just select columns B:T instead of
"Range(Selection, Selection.End(xlToRight)).Select"?

Or is that even a good idea or worth it?

Regards,

Vernon

 

[Norie]

Vernon

Try something like this.

Dim rng As Range
Dim LastRow As Long
    LastRow = Range("B" & Rows.Count).End(xlUp).Row
    
    Set rng = Range("B12:T" & LastRow)
    rng.Sort Key1:=Range("B12"), Order1:=xlAscending, Header:=xlGuess _
        , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

 

[vmottert]

Norie,

Your code works great. And it also solved another problem. If users added inventory in blank rows below below and left a blank row, my code wouldn't find it. But your code does find it Nicely done!

Regards,

Vernon