Dim SC as Range
Dim Arr_in() as Double

Arr_in = Range.values ' :)

i =  0 
 For Each i_cell In SC
  Arr_in( 0 , i) = i_cell.Value ' Столбец, заданный отдельно
  j =  1 
  For Each i_column In Interpolate_columns ' Столбцы заданы массивом букв
   Arr_in(j, i) = Range(i_column & i_cell.Row).Value
   j = j +  1 
  Next
  i = i +  1 
 Next

Dim Arr_in()
Arr_in() = Range("A1:B10")

...
Dim vGroup As Variant
....
' Получаем массив уникальных данных, для прокрутки по автофильтру
vGroup = r.Range("a2:F" + CStr(r.SpecialCells(xlCellTypeLastCell).Row)).Value2
....
Dim iPriz As Long, iMonth As Long, iGr As Long, i As Long, nCurrRow As Long, bFirst As Boolean
....
For iGr = LBound(vGroup) To UBound(vGroup)
....

Option Explicit

Sub fd()
Dim v As Variant, i As Long, j As Long
v = Range("B1:C5").Value
For i = LBound(v) To UBound(v)
    For j = LBound(v,  2 ) To UBound(v,  2 )
        Debug.Print v(i, j)
    Next j
Next i
End Sub

Dim CS As Range
Dim Arr_tmp As Variant
...
Arr_tmp = SC.Value2
...

Arr1 = [A1:B5]