I am trying to generate an array on the fly

For x = 2 To flstRow
aCom(1, x - 2) = Range("A" & x).Value
aCom(2, x - 2) = Range("M" & x).Value
Next x

but when I run the code I keep getting a Subscript out of range error and it
highlights the x-2 part of my code. How can I loop through the row of a
table and populate a 2 dimensional array with the values?

QB