I have a macro that selects a range, copys it, then converts the formulas to values, ten sorts the range on colum 'J'
what I need is to now sort the result on colum 'A' and copy to another worksheet.

See Below;

Sub sort2()
'
' sort2 Macro
' Macro recorded 1/22/2007 by Tablet PC
'
Rows("23:677").Select
Selection.EntireRow.Hidden = False :Unhide any hiden rows.
Application.Goto Reference:="SPEC" : Select range SPEC
Selection.Copy : Copy the range SPEC
Range("A23").Select : paste the VALUES back
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Sort Key1:=Range("J23"), Order1:=xlAscending, Header:=xlGuess, _ :as the range is still highlighted
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ : I now do my first sort on "J"
DataOption1:=xlSortNormal

:This is where I'm lost I need to find the last cell in Col 'J' with a value, ( this row can change ) and select it to A23 and then sort on Col. 'A' and then copy to another work book.
: Any help is appreciated.

End Sub




Roger