Filling a MultiDimensional Array Row for Row

Hey

Is it possible to fill only one row of a multidimensional array with a defined Dimension.

ReDim aLabAssignement(1 To iCCAmount + iEAmount, 1 To 3)

For k = 1 To 3

    ReDim aCCArray(1 To iCCAmount)
    ReDim aEArray(1 To iEAmount)
    
    While Application.Sum(aCCArray) < iCCUpperLimit
         ... 
    Wend
     
    
    While Application.Sum(aEArray) < iEUpperLimit
       ....        
    Wend

    aLabAssignement(:,k) = Array(aCCArray, aEArray)
Next

I have the Arrays aCC and aE and would like to store them in one row of aLabAssignement in Column "k")
So i would end up with a fully filled Array after the for Loop.
Is there a method how i can fullfill this without another for loop just filling in every value on it's own?

Thanks for your Answers