объявление массива в VBA

[Cannibal]

размер двумерного массива зависит от количества элементов в веденном списке. как объявить такой массив?

я сделал так, от он ругается на то, что в скобках требуются константные выражения

  Dim n
  n = 0
  While Cells(n + 2, 1) <> 0
    n = n + 1
  Wend
  Dim cross(n, n) As Single