hi experts!
i ve this macro but i want to make it dynamic how can i do it?

Sub Macro1()
€˜
€˜ Macro1 Macro
€˜
€˜finalrow = Cells(Rows.Count, 1).End(xlUp).Value
ActiveWorkbook.Worksheets(€œSheet2€³).Sort.SortF ields.Clear
ActiveWorkbook.Worksheets(€œSheet2€³).Sort.SortF ields.Add
Key:=ActiveCell, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(€œSheet2€³).Sort
..SetRange ActiveCell.Range(€œA1:A14€³)
..Header = xlNo
..MatchCase = False
..Orientation = xlTopToBottom
..SortMethod = xlPinYin
..Apply
End With
End Sub


i used this code .SetRange ActiveCell.Range(Selection,
Selection.End(xlDown)) instead of .SetRange ActiveCell.Range(€œA1:A14€³)
but was not able to make my macro dynamic how can i make my macro
dynamic?
make macro dynamic help!