将更新后的数组写入原来的工作表中相同的工作表

正如我试图解释长标题，我正在写一个数组到工作表。 然后这个数组被用来更新计算数组更新版本（P数组）的一些系数。 我也想写这个数组到同一个工作表，或者在下面的行中，或者转置那个数组，并把它写在第一个列的旁边。 这是为所有j完成的。 代码如下

For j = 1 To Ntime 'Part A code For i = 1 To n 'calculate an array P using the "Part A code" Next i 'Code below writes array P to cell D3 and below up to P(n_r). this P array is used to update the "Part A code" which updates the P array Set Destination_P = Range("D3") Set Destination_P = Destination_P.Resize(n_r, 1) Destination_P.Value = Application.Transpose(P) Next j 

任何帮助将不胜感激

亲切的问候Eirik