VBA - 将某些行（一列）从二维数组复制到另一个数组的特定列

问：

我被困住了。我正在尝试将一些选定的行从二维数组的一列复制到另一个二维数组的特定列。我已经尝试了我所有的知识，但无济于事。

Sub TestIndxPst()
    Dim varArray As Variant
    
    ReDim varArray(1 To 4, 1 To 3)
    Dim vaOut As Variant
    ReDim vaOut(1 To 4, 1 To 3)
    RowNumArray = Evaluate("transpose(Row(1" & ":" & 5 & "))")
    varArray = ThisWorkbook.Worksheets("Sheet1").Range("G2:I7")
    Application.Index([G9:I12], , 2) = Application.Transpose(Application.Index(varArray, Array(2, 3, 5, 6), 2))
    vaOut = Application.Transpose(Application.Index(varArray, Array(2, 3, 5, 6), 2))
    Application.Index(vaOut, , 2) = Application.Transpose(Application.Index(varArray, Array(2, 3, 5, 6), 2))
    For i = LBound(vaOut) To UBound(vaOut)
        Debug.Print vaOut(i, 1)
    Next i
End Sub

您可以看到，我可以在使用Application.Index([G9:I12], , 2) = Application.Transpose(Application.Index(varArray, Array(2, 3, 5, 6), 2))

当我使用vaOut = Application.Transpose(Application.Index(varArray, Array(2, 3, 5, 6), 2))

但是，一旦我尝试将结果放在 out 数组的第 2 列中，.我收到应用程序定义或对象定义错误Application.Index(vaOut, , 2) = Application.Transpose(Application.Index(varArray, Array(2, 3, 5, 6), 2))

非常感谢任何帮助。