Excel操作の貼り付けについて、行列入替を行うことは可能でしょうか？

行列入替を行うのは全ての範囲が対象ではなく、またコピー範囲も不規則なため、できれば貼り付け時に行列入れ替えができればと思っております。

最初はセルを1つずつ行っていたのですが、項目数も多いため実行時間が長すぎるようになってしまいました。

VBSも自分なりに検索はしてみたのですが、うまくスクリプトを完成させることができませんでした。

よろしければご教授お願いいたします。