>>dimension .aRowSource[ALEN(.aRowSource,1)+1, m.lnCols] && add one more column
at this instruction you are adding one more row instead of column. If you need other column change the code:
dimension .aRowSource[ALEN(.aRowSource,1), m.lnCols+1] && add one more column