Sub FastSort()
Dim ws As Worksheet
Dim lastRow As Long
' Set your worksheet reference
Set ws = ThisWorkbook.Sheets("Sheet1")
' Find the last row with data in column A (adjust the column as needed)
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' Sort the range (change the range to match your data)
ws.Range("A1:B" & lastRow).Sort _
Key1:=ws.Range("A1"), Order1:=xlAscending, _
Key2:=ws.Range("B1"), Order2:=xlAscending, _
Header:=xlYes ' Change to xlNo if you don't have headers
' Optionally, add more Key/Order pairs for additional sorting levels
End Sub