並べ替えて指定フォルダに保存する

１　並べ替えて、保存するマクロ

 　指定の順序で並べ替え。指定のフォルダ（シート内にアドレスを記載）に保存。

２コード

Sub 引継簿並べ替え()
'並べ替え
    With ThisWorkbook.Sheets("引継簿")
        .Range("A5").Sort key1:=Range("G5"), order1:=xlAscending, _
                                    key2:=Range("F5"), order2:=xlAscending, _
                                    Header:=xlYes
        .Range("A5").Select
        '印刷範囲の設定が必要ならする
    End With
End Sub
Sub 引継簿を共有フォルダへ保存()
'シートコピー
    ThisWorkbook.Sheets("引継簿").Copy
    Dim aWB As Workbook: Set aWB = ActiveWorkbook
    Dim aWS As Worksheet: Set aWS = ActiveSheet
'名前を付けて保存
    With aWS
        Dim saveFolderPath As String: saveFolderPath = .Range("K1").Value
        Dim savePath As String: savePath = saveFolderPath & "\" & .Range("K2").Value
'パスの記載を削除
        .Range("J1:L2").ClearContents
'数式を値貼付
        .UsedRange.Value = .UsedRange.Value
        .Range("A5").Select
    End With
    
    With aWB
        .SaveAs savePath
        '閉じる
        .Close
    End With
    'フォルダを開く
    Shell "Explorer.exe " & saveFolderPath, vbNormalFocus
End Sub