Macro for selected cells

[mmackoka]

Need to use a macro on cells what I would like to select. I've recorded one but no luck with it. Can someone please help me with it?

Range("U16:X36").Select
ActiveWorkbook.Worksheets("eBay-edit-price-quantity-templa").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("eBay-edit-price-quantity-templa").Sort.SortFields. _
Add2 Key:=Range("U16:U36"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("eBay-edit-price-quantity-templa").Sort.SortFields. _
Add2 Key:=Range("W16:W36"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("eBay-edit-price-quantity-templa").Sort
.SetRange Range("U16:X36")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Thank you!

 

[kevin9999]

You will make it much easier for people on this forum to help you if you provide a sample of your actual data using the XL2BB Tool.

If you're talking about sorting the specific range you mention ("U16:X36") then the following should work for you (assumes row 16 is your header row).

Option Explicit
Sub mmackoka_1()
    Dim ws As Worksheet
    Set ws = Worksheets("eBay-edit-price-quantity-templa")
    
    ws.Range("U16:X36").Sort _
    Key1:=ws.Range("U16"), order1:=xlAscending, _
    Key2:=ws.Range("W16"), order2:=xlAscending, Header:=xlYes
    ws.Sort.SortFields.Clear
End Sub