Sorts Data By Column In Descending Order

I have a macro built that sorts my data by column in descending order depending on what column of information is selected from the drop down menu.

However I need the macro to sort column F in ascending order, and continue to sort the other colulmns in descending order when selected.

I can't get my macro to switch the sort from descending to ascending order for this one column. Looking to see if this is possible, and if so what macro formula I would use.

Here is what the macro i am currently using:

Sub ddSort_Click()
Dim iDdSortVal As Integer
Dim CurrSheet As String
Dim lFirstSectionRow As Long
Dim lLastSectionRow As Long
Dim strCol As String
Dim lRptHeaderRow As Long
Dim iRptMeasColumn As Integer

CurrSheet = ActiveSheet.Name

[Code] .......