【VBA】14.2 並べ替え機能（Sortオブジェクト）を使ってみよう！

    With ws_employeelist.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws_employeelist.Range("F2"), Order:=xlDescending
        .SortFields.Add Key:=ws_employeelist.Range("A2")
        .SetRange ws_employeelist.Range("A1").CurrentRegion
        .Header = xlYes
        .Apply
    End With

Option Explicit

Sub make_retireelist()

    Dim ws_macro As Worksheet
    Dim ws_work As Worksheet
    Dim wb_inputfile As Workbook
    Dim ws_employeelist As Worksheet
    Dim path_inputfile As String
    Dim num_row As Long
    
    Application.ScreenUpdating = False

    Set ws_macro = ThisWorkbook.Worksheets("退職者一覧作成マクロ")
    Set ws_work = ThisWorkbook.Worksheets("work")
    
    If Right(ws_macro.Range("D3"), 1) <> "\" Then
        path_inputfile = ws_macro.Range("D3") & "\" & ws_macro.Range("C3")
    Else
        path_inputfile = ws_macro.Range("D3") & ws_macro.Range("C3")
    End If
    
    Workbooks.Open Filename:=path_inputfile
    Set wb_inputfile = ActiveWorkbook
    Set ws_employeelist = ActiveWorkbook.Worksheets("社員一覧")
    
    With ws_employeelist.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws_employeelist.Range("F2"), Order:=xlDescending
        .SortFields.Add Key:=ws_employeelist.Range("A2")
        .SetRange ws_employeelist.Range("A1").CurrentRegion
        .Header = xlYes
        .Apply
    End With

    wb_inputfile.Close SaveChanges:=True
    
    MsgBox "社員一覧の並べ替えを行いました。"
    
    ThisWorkbook.Save
    
    ws_macro.Activate
    
    Application.ScreenUpdating = True
    
End Sub