Dim element As Variant
group = Array("a", "b", "c", "d", "e", "f", "g")
 For Each element In group
' объявить динамически массивы типа Variant c именами element 
' dim element as variant
  Next

Group = Array("a", "b", "c", "d", "e", "f", "g")
ReDim arr(1 To UBound(Group, 1) + 1, 1 To 1)
i = 1
  For Each element In Group

  arr(i, 1) = element
  Set MyRange = range_data(element)
  arr(i, 1) = MyRange
   i = i + 1

  Next
  
'MsgBox arr(1, 1, 1, 1)