将更新的数组写入相同的工作表，在原始数据旁边

Question

当我试图在长标题中解释时，我正在为工作表编写一个数组。然后，该数组用于更新一些系数，这些系数将用于计算该阵列的更新版本（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

非常感谢任何帮助

亲切的问候 艾瑞克