Значения выделенных ячеек в массив

Set SKU = Intersect(.Range(ADR).Value + "_" + Range(Selection.Address).Value, PivotRange)

Public SelectedComboValue As String
 
Private Sub ComboBox1_Change()
    SelectedComboValue = UserForm2.ComboBox1.Value
End Sub
 
Private Sub UserForm_Initialize()
    Dim ws As Worksheet, rCell As Range, Key
    Dim Dic    As Object: Set Dic = CreateObject("Scripting.Dictionary")
    Set ws = Worksheets("АМ_комитет")
    UserForm2.ComboBox1.Clear
    For Each rCell In ws.Range("C11", ws.Cells(Rows.Count, "C").End(xlUp))
        If Not Dic.exists(LCase(rCell.Value)) Then
            Dic.Add LCase(rCell.Value), Nothing
        End If
    Next rCell
    For Each Key In Dic
        UserForm2.ComboBox1.AddItem Key
    Next
End Sub
Private Sub Find()
Sheets("АМ_комитет").Select
Set fcell = Columns("C:C").Find(ComboBox1.Value)
If Not fcell Is Nothing Then
    MsgBox CStr(fcell.Row)
End If
End Sub
 
 
Private Sub CommandButton1_Click()
    Dim arrOpen1() As String
    Dim i As Long
    Dim ADR As String
    Dim SKU As Range
    With Worksheets("АМ_комитет").Range("C11:C1523")
        Set c = .Find(SelectedComboValue, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                ReDim Preserve arrOpen1(0 To i)
                arrOpen1(i) = Replace(c.Address, "A", "C")
                i = i + 1
                Set c = .FindNext(c)
                If c Is Nothing Then
                    GoTo DoneFinding
                End If
            Loop While c.Address <> firstAddress
        End If
        
           Sheets("АМ_комитет").Select
Set fcell1 = Columns("C:C").Find(ComboBox1.Value)
If Not fcell1 Is Nothing Then
    ADR = CStr(Replace(fcell1.Address, "C", "B"))
    Set SKU = Intersect(.Range(ADR).Value + "_" + Range(Selection.Address).Value, PivotRange)
  
    
End If
       ' MsgBox CStr(fcell.Row)
        'MsgBox arrOpen1(0)
        'MsgBox ComboBox1.
        
 
DoneFinding:
    End With
    Dim Rng    As Variant
    Set Rng = Application.InputBox("Выберите диапазон для копирования", "Выделите ячейки для копирования", Type:=1)
    With Sheets("Лист1")
     For i = LBound(arrOpen1, 1) To UBound(arrOpen1, 1)
        Range(Rng.Address).Copy .Range(arrOpen1(i))
     Next i
    End With
    MsgBox "Копирование успешно произведено!" & Rng.Address
 
 
End Sub