A.ReDim Preserve x(10,Ubound(x,2)+1)
B.ReDim Preserve x(Ubound(x,1)+1,10)
C.ReDim Preserve y(Ubound(y)+1)
D.ReDim y(Ubound(y)+1)