Sort current range by column j

[J.W. Aldridge]

After the following macro, I want to sort the selected range by column
J.

Sub Macro1()

Range("A100000").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlUp)).Select

End Sub

 

[Master Blaster]

After the following macro, I want to sort the selected range by column

use this:

Selection.Sort Key1:=Range("J3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
DataOption1:=xlSortNormal


good luck