Hi,
I saw a more elegant solution offered on the board the last few days, but cannot find the link.
Anyway, this sorts the selected area ascending with the last column as the only criteria level. Change as needed.
'------
Sub test()
Dim FirstRngCol As Integer
Dim FirstRngRow As Long
Dim ColCount As Integer
Dim RowCount As Long
Dim SortStart As String
RowCount = Selection.Rows.Count
If RowCount = 1 Then Exit Sub
ColCount = Selection.Columns.Count
FirstRngCol = Selection.Column
FirstRngRow = Selection.Row
SortStart = Cells(FirstRngRow, FirstRngCol).Offset(0, ColCount - 1).Address
With Selection
Range(SortStart).Sort Key1:=Range(SortStart), Order1:=xlAscending, Header:=xlNo
End With
End Sub
'------