Sorting Columns in Ascending Order

Hi All

Iam have trouble sorting one of my Columns (Column C) into Ascending Order, the column contains Numbers & Text eg 13A

the way it is currently sorted is:

13A
1B
2A

Where as I want it to be Sorted by Number then by Text eg:

1B
2A
13A

Attached is a copy of the workbook and the macro that i have been using, any help will be much appreciated

Kind Regards
Colin

ActiveSheet.Range("$A$1:$F$" & ActiveSheet.Cells(1, 1).End(xlDown).Row).Select
     
     
     With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Cells(2, 1), _
                SortOn:=xlSortOnValues, _
                Order:=xlAscending, _
                DataOption:=xlSortNormal
        .SortFields.Add Key:=Cells(2, 2), _
                SortOn:=xlSortOnValues, _
                Order:=xlAscending, _
                DataOption:=xlSortNormal
        .SortFields.Add Key:=Cells(2, 3), _
                SortOn:=xlSortOnValues, _
                Order:=xlAscending, _
                DataOption:=xlSortNormal
        .SortFields.Add Key:=Cells(2, 4), _
                SortOn:=xlSortOnValues, _
                Order:=xlAscending, _
                DataOption:=xlSortNormal
                
        .SetRange Range("$A$1:$F$" & ActiveSheet.Cells(2, 1).End(xlDown).Row)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With