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

On Oct 19, 10:09*pm, "J.W. Aldridge"
wrote:
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