Ошибка ( Error '9') при создании массива с помощью VBA

[Red Fox]

Уважаемые форумчане,

Помогите, пожалуйста, устранить ошибку (Error '9') при создании массива с помощью макроса VBA. Есть таблица с данными по продуктам в разрезе по магазинам и районам. Необходимо создать двухмерный массив данных с помощью VBA, где колонками будут выступать магазины, а строками районы (см.прикрелпенный файл).

Нужен совет опытных гуру VBA. Спасибо заранее.

[IgorGO]

в таком виде

Sub PopulateMassiv()
  Dim a, i, j, k As Integer
  Dim strA, strB, strC As String
  Dim arrA, arrB(), arrVar, c, b As Variant
  arrA = Array("Юг Итого", "Восток Итого", "Запад Итого")
  ReDim arrB(0 To 2, 0 To 4)
  b = 0:  c = 0
  For a = 0 To UBound(arrA)
    i = 0
    Do While Worksheets("Запасы").Cells(4 + b, 2).Value <> arrA(a)
      If Worksheets("Запасы").Cells(4 + b, 2).Value = arrA(a) Then
        b = b + 3
      ElseIf Right(Worksheets("Запасы").Cells(4 + b, 2).Value, 5) = "Итого" Then
        b = b + 2
      End If
      Do While Right(Worksheets("Запасы").Cells(4 + b, 2).Value, 5) <> "Итого"
        j = j + 1
        b = b + 1
      Loop
      arrB(a, i) = j - 1
      i = i + 1:  b = b + 1:  j = 0
    Loop
  Next a
End Sub

это работает, но что Вам нужно было (что Вы хотели получить) я не понимаю