VBA - Sort Changing Input Range

[whada]

Hi There - I'm trying to sort data by two levels in VBA. The table doesn't have a firm number of rows though.
Here is where I got (code not working):

Dim LevelOne As Range
Dim LevelTwo As Range
Dim SortRange As Range


LevelOne = ActiveSheet.Range(Range("A4"), Range("A4").End(xlDown)).Select
LevelTwo = ActiveSheet.Range(Range("F4"), Range("F4").End(xlDown)).Select
SortRange = ActiveSheet.Range(Range("4:4"), Range("4:4").End(xlDown)).Select


ActiveWorkbook.Worksheets("Fcst_{Enterprise}").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Fcst_{Enterprise}").Sort.SortFields.Add Key:=LevelOne, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Fcst_{Enterprise}").Sort.SortFields.Add Key:=LevelTwo, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.ActiveSheet.Sort
.SetRange SortRange
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With



Any help with this is greatly appreciated

 

[whada]

Just to add further clarification to this - I think the problem may be with the way I define these variables. Basically I have two columns A and F that I want to sort by. The number of rows in my table will go up or down so I wanted to use Range.End(xlDown) to find out what the sort are should be. I tried that above by using ActiveSheet.Range(Range("A4"), Range("A4").End(xlDown)).Select and then ActiveSheet.Range(Range("F4"), Range("F4").End(xlDown)).Select and then set the sort area as ActiveSheet.Range(Range("4:4"), Range("4:4").End(xlDown)).Select to select everything from row 4 down to the bottom but this code is not sorting at all...hm?