複数条件をまとめるプロシージャーを作成する

Sub 並び替え作業()
    Dim ANS As Long
        DataSN = ws.Name
        If DataNSN <> DataSN Then
        MsgBox "シートが変更されましたので、並び替えデータシート" _
            & "全体のチェックが必要です。" & vbCrLf & _
            "「並び替えデータシート全体チェック」をまず実行して" _
            & "ください。", vbInformation, "実行するには・・"
        Exit Sub
        End If
        Set SSRange = Nothing
        If Not DataRange = "Type1" Then
            If ErEnd = True Then
                ANS = MsgBox("「条件設定の不備」を修正しましたか？" _
                            , vbYesNo + vbQuestion, "確認")
                If ANS = 7 Then
                    MsgBox "不備を修正してください。終了します。"
                    Exit Sub
                Else
                    ErEnd = False
                End If
            End If
        End If

        If DataRange = "Type1" Then
            Set SSRange = SortAreaA
        ElseIf DataRange = "Type2" Then
            Set SSRange = SortAreaB
        ElseIf DataRange = "Type3" Then
            Set SSRange = SortAreaC
        ElseIf DataRange = "Type4" Then
            Set SSRange = SortAreaD
        End If
        
        If ErEnd = True Then
            MsgBox "一旦終了します。"
            Exit Sub
        End If

        ソートナビゲーター.部分範囲指定表示.Value = ""

        If CusOdr1 = "ON" Then
            MsgBox "並び替え列1のユーザー設定リストの設定"
            CusOdr1V = CusOdr
        End If
        If CusOdr2 = "ON" Then
            MsgBox "並び替え列2のユーザー設定リストの設定"
            CusOdr2V = CusOdr
        End If
        If CusOdr3 = "ON" Then
            MsgBox "並び替え列3のユーザー設定リストの設定"
            CusOdr3V = CusOdr
        End If

        CusOdr1V = ""
        CusOdr2V = ""
        CusOdr3V = ""

        If SortType = "StypeA" Then
            Call Module1.Sort実行
        ElseIf SortType = "StypeB" Then
            Call Module1.Sort背景色
        ElseIf SortType = "StypeC" Then
            Call Module1.Sort列から背景色
        ElseIf SortType = "StypeD" Then
            Call Module1.Sort背景色から列
        Else
            Call Module1.Sort実行
        End If

        With SSRange
        If SSRange Is Nothing Then Exit Sub
            DCutr = .Row
            DCutc = .Column
            DCutEr = .Rows.Count + DCutr - 1
            DCutEc = .Columns.Count + DCutc - 1
        End With