別シートにまたぐのは可能？並び替えのコード設計

Option Explicit
Dim ADRange As Range
Dim DataNSN, DataSN As String
Dim ErEnd As Boolean
Dim SSRange As Range
Dim STRCr, STRCc As Long
Public KeyAddA, KeyAddB, KeyAddC As Variant
Public ClrNoA, ClrNoB, ClrNoC As Variant
Public RGBstyle As String
Dim Rno, GNo, BNo As Long
Public DataRange As String, Head As Long
Dim InpAreaV As Range
Public Stream1, Stream2, Stream3, Stream4, Stream5, Stream6 As Long
Dim Bodu, Bodd, Bodr, Bodl As Border
Dim BoduL, BoddL, BodrL, BodlL, BoduW, BoddW, BodrW, BodlW As Long
Public ClrNoACellc, ClrNoBCellc, ClrNoCCellc As Long
Public SortType As String
Public CusOdr1, CusOdr2, CusOdr3, CusOdr1V, CusOdr2V, CusOdr3V As Variant
Public DCutr, DCutc, DCutEr, DCutEc As Long
Public DCYr As String
Dim AreaVAlert As Boolean

Sub グローバル変数初期化()
    Dim ANS As Long
        If Not ADRange Is Nothing Then
            ANS = MsgBox("「並び替えデータシート全体をチェック」も" & _
                "リセットしますか？", vbYesNo + vbQuestion, "確認")
                If ANS = 7 Then
                    MsgBox "承知しました。チェックのリセット" & _
                        "は行いません。"
                Else
                    Set ADRange = Nothing
                End If
        End If
        Set SSRange = Nothing
        Set InpAreaV = Nothing
        DataSN = ""
        ErEnd = False
        STRCr = 0
        STRCc = 0
        KeyAddA = ""
        KeyAddB = ""
        KeyAddC = ""
        ClrNoA = ""
        ClrNoB = ""
        ClrNoC = ""
        RGBstyle = ""
        Rno = 0
        GNo = 0
        BNo = 0
        DataRange = ""
        Head = 0
        Stream1 = ""
        Stream2 = ""
        Stream3 = ""
        Stream4 = ""
        Stream5 = ""
        Stream6 = 0
        ClrNoACellc = 0
        ClrNoBCellc = 0
        ClrNoCCellc = 0
        SortType = ""
        CusOdr1 = ""
        CusOdr2 = ""
        CusOdr3 = ""
        CusOdr1V = ""
        CusOdr2V = ""
        CusOdr3V = ""
        DCutr = 0
        DCutc = 0
        DCutEr = 0
        DCutEc = 0
        DCYr = 0
        AreaVAlert = False
End Sub

'データシート全体のボリュームを把握

Sub データシート把握()
    Dim ADSr, ADSc, ADEc As Range
    Dim Sr, Sc, Ec As String
    Dim SrN, ScN, EcN As Long
    Dim i As Long
    Dim ER() As Long
        ws.Select
        DataNSN = ws.Name
        On Error Resume Next
        Set ADSr = Application.InputBox("データの開始行を指定して" & _
            "ください。", Title:="データ開始行の指定", Type:=8)
        If ADSr Is Nothing Then
            MsgBox "キャンセルされました。終了します。"
            Exit Sub
        End If
        Set ADSc = Application.InputBox("データの開始列を指定して" & _
            "ください。", Title:="データ開始列の指定", Type:=8)
        If ADSc Is Nothing Then
            MsgBox "キャンセルされました。終了します。"
            Exit Sub
        End If
            Set ADEc = Application.InputBox("データの終了列を指定" & _
                "してください。", Title:="データ終了列の指定", Type:=8)
        If ADEc Is Nothing Then
            MsgBox "キャンセルされました。終了します。"
            Exit Sub
        End If
        Sr = ADSr.Address(, , xlR1C1)
        SrN = Val(Mid(Sr, 2))
        Sc = ADSc.Address(, , xlR1C1)
        ScN = Val(Mid(Sc, 2))
        Ec = ADEc.Address(, , xlR1C1)
        EcN = Val(Mid(Ec, 2))
    ReDim ER(ScN To EcN)
        For i = ScN To EcN
            ER(i) = Cells(Rows.Count, i).End(xlUp).Row
        Next i
        Set ADRange = Range(Cells(SrN, ScN), Cells(WorksheetFunction _
            .Max(ER), EcN))
End Sub