En VBA, ¿cómo utilizar la función propia del sistema para transponer rápidamente una matriz de 1 fila y n columnas a una matriz de n filas y 1 columna?

Suponiendo que la matriz es Arr, si es una matriz unidimensional, puede usar directamente la función Application.Transpose, si Arr es una matriz bidimensional. Como se muestra a continuación:

Rango("A1:A10000") = Application.Transpose(Application.Index(Arr, 1))