data sorting macro question

[puppy123]

I want to record a macro which sorts a range of data in ascending order. The macro must work on any selected data, not just on the cells where it was recorded. I can only make the macro work on the cell where it was recorded, not sure how to make it work on any selected data. Below is my code:
[VBA]Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+s
'
Range("A4").Select
ActiveWorkbook.Worksheets("samp").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("samp").Sort.SortFields.Add Key:=Range("A4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("samp").Sort
.SetRange Range("A2:B4")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
[/VBA]

Can anyone please help thanks.

[Bob Phillips]

Untested

[vba]

Sub Macro5()

With ActiveSheet

.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Selection.Cells(1, 1), _
SortOn:=xlSortOnValues, _
Order:=xlAscending, _
DataOption:=xlSortNormal
With .Sort

.SetRange Selection
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub[/vba]