Макрос excel через запятую

    Dim exam As Range    ‘Сюда назначаю список ячеек не по порядку идущих
    Dim ws As Worksheet
        Set ws = Workbooks(«Пример.xlsm»).Worksheets(«Sheet1»)
    Dim c%: c = 9              ‘ Тут указываю первую строку вместо 9 тут стоит rng.row которая прилетала с другой функции ( Не суть)
        Dim mm(1 To 17) As Range  ‘Сюда заливаю адреса строк по порядку
            Set mm(1) = ws.Range(«A» & c)   ‘Мне нужна колонка А и строка которая найдена была другой функцией в данном примере 9
                For i = 2 To 17                        ‘ Тут по порядку циклом назначение в массив
                    Set mm(i) = ws.Range(«A» & c + i — 1)   
                Next i
                      Set exam = Application.Union(mm(1), mm(4), mm(3))      ‘Как эту строку записать что-то типа ws.[mm(1),mm(4),mm(3)] ? Лист и номера назначенных строк в колонке А их всегда больше двух
                    ‘ Просто проблема в том что я глуп и сколько не читаю понять не могу. Union иногда пропускает первый диапазон( Почему не знаю)
                    ‘ Если просто указывать ws.[A9,A12,A11] все работает, а с массивом не получается помогите пожалуйста.

Sub aaa()
    Dim rng  As Range
    Dim addr As String

        Range(«A1») = 1
    Range(«C1») = 3
    Range(«E1») = 5

        Set rng = Union(Range(«A1»), Range(«C1»), Range(«E1»))
    Debug.Print WorksheetFunction.Sum(rng) ‘= 9

        addr = rng.Address(False, False)
    Debug.Print addr ‘= A1,C1,E1

        Debug.Print WorksheetFunction.Sum(Worksheets(1).Range(addr)) ‘= 9 — как раз случай ws.Range(«A1,C1,E1») = ws.[A1,C1,E1]
    Debug.Print WorksheetFunction.Sum(Worksheets(1).[A1,C1,E1]) ‘= 9

        Debug.Print Application.Evaluate(«=SUM(A1,C1,E1)») ‘= 9
    Debug.Print [=SUM(A1,C1,E1)] ‘= 9
End Sub

Sub nasd()
    Dim exam As Range
    Dim ws As Worksheet
        Set ws = Workbooks(«Пример.xlsm»).Worksheets(«Sheet1»)
    Dim c%: c = 9
        Dim mm(1 To 17) As Range
           Set mm(1) = ws.Range(«A» & c)

                            For i = 2 To 17
                    Set mm(i) = ws.Range(«A» & c + i — 1)
                Next i
                Stop
                    Set rng = Union(mm(3), mm(1), mm(17), mm(4))  
         Dim addr$:addr = rng.Address(False, False)                       
                ‘Set exam = ws & «.» & «[» & addr & «]»                ‘Так объект не поддерживает данный метод
                ‘Set exam = addr                    ‘Type missmach
End Sub

Set rng = Union(mm(3), mm(1), mm(17), mm(4))  ‘ И вот опять..  тут 4 диапазона A11,A9,A25,A12
Dim addr$:addr = rng.Address(False, False)   ‘ Но эта строка дает мне A9,A25,A11:A12 , а мне нужно использовать их именно в таком порядке как я написал

Dim cell As Range

For Each cell In exam.Cells
    Debug.Print cell.Address(0, 0)
Next cell