vba dynamic

[danial mansoor]

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.SortFields.Clear
ActiveWorkbook.Worksheets(“Sheet2″).Sort.SortFields.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!

 

[Per Jessen]

Hi

Try this:

SetRange Range(selection,Range(selection).end(xldown))

Regards,
Per