Hi,
This is my current code that is working
Sub SortSCRA()
Sheets("C&P Output").Select
Columns("a:bku").Select
Selection.Sort Key1:=Range("aye3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.Goto...