title: Redim Preserve gives 'subscript out of range'
body: <p>I want to <code>Redim Preserve</code> an array I keep getting the error 'subscript out of range'. I am aware of the fact that only the size of the last dimension can be changed. That is exactly what I am doing. What is going wrong over here? The type of the array is <code>Variant</code>.</p>
  
  <pre><code>BmMatrix = Sheets("BENCH").Range("a60", ActiveSheet.Range("a60").End(xlDown).End(xlToRight))
  'totaal gewicht per subdeel in array wegschrijven
  Dim aBmMatrix()
  aBmMatrix = BmMatrix
  rij = UBound(BmMatrix, 1)
  kol = UBound(BmMatrix, 2) + 1
  ReDim Preserve aBmMatrix(rij, kol)
  TotGewKol = UBound(aBmMatrix, 2)
  For i = 2 To UBound(BmMatrix, 1)
      g = 0 'g wordt totaal gewicht van land bv
      If BmMatrix(i, bm_kolom) &lt;&gt; "x" Then
          For j = 2 To UBound(bmexnul, 1)
              If bmexnul(j, weightkolom) = BmMatrix(i, bm_kolom) Then g = g + bmexnul(j, 10)
          Next j
      End If
      aBmMatrix(i, TotGewKol) = g
      aBmMatrix(1, TotGewKol) = "Totaal gewicht" 'titel kolom
  Next i
  </code></pre>