VB Dynamic Range Sorting

[samthomasny]

I badly need some help with this macro


Data is from Col A to H
Row 1 is the headers
And I want it sorted by col A
The script below is working perfect; but my problem is that it is a dynamic range
Hence I want to replace that "A1:H12" with something else.
My thought was that I already have a selection of the entire data range when I did -
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

Can someone please help me?

Sub aaa()

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortField s.Add Key:=Range("A1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:H12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub

[June7]

Does this help http://www.excely.com/excel-vba/how-...election.shtml

Try:
Set SelRange = Selection
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange SelRange

[samthomasny]

Worked perfect. Thanks, appreciate the timely help