Excel VBA ソートをかける

'昇順でソートする        
    'ソートの条件を設定
    With ActiveSheet.Sort.SortFields    
        '条件設定をクリア
        .Clear        
        '1～10列目まで同じソートの条件設定をするため繰り返し処理
        For i = 1 To 10
        .Add Key:=Cells(1, i), _
             SortOn:=xlSortOnValues, _
             Order:=xlAscending, _
             DataOption:=xlSortNormal
        Next        
     End With        
    'ソートをかける
    With ActiveSheet.Sort
        .SetRange Range(Cells(1, 1), Cells(lngLastRow, 10))
        .Header = xlYes
        .Orientation = xlTopToBottom
        .Apply
    End With