VBA 列を丸ごと入れ替える

Question

VBA初心者です。
お手数ですがご回答宜しくお願い致します。

下記のように並んでいる列を入れ替えるにはどういったマクロを組めばよいでしょうか。

ＡＢＣＤＥＦＧＨＩＪ・・・・
１２３４５６７８９10
あ　　たなは　やらわ
いき　　　ひみ
う　つ　ぬ　　　る
↓
↓
↓こう並び替えたい
↓
↓
ＡＢＣＩＥＨＧＦＤＪ・・・・
１２３９５８７６４10
あ　　らなや　はたわ
いき　　　　みひ
う　つるぬ　　　

下記のようにマクロを組んでみたのですが、
一番上のところがコピーさせるように表記されてしまいました。
(D列の４やたの表記が消え、全てDになっている)

空欄が多いものの、ひらがなのところは日付が入っているので
それが表記されるようにしたいです。

分かりづらくて大変申し訳ございませんが、宜しくお願い致します。

試したこと

Sub Sample()

Dim vData1
Dim vData2
vData1 = Columns("D")
vData2 = Columns("I")
Columns("D") = vData2
Columns("I") = vData1

End Sub

Sub Sample1()

Dim vData1
Dim vData2
vData1 = Columns("F")
vData2 = Columns("H")
Columns("F") = vData2
Columns("H") = vData1

End Sub

Comments

[hatena19]

コードとしてはあまりよいものではないですが、それはスルーして、
当方でサンプルを作成して確認してみましたが、そのコードで問題なく動作しました。
実際のコードですか。

Answer 1

Sub Sample1()
'列の入れ替え

Dim vData1
Dim vData2
Dim vData3
Dim vData4

vData1 = Columns(4) 'Ｄ列
vData2 = Columns(9) 'Ｉ列
vData3 = Columns(6) 'Ｆ列
vData4 = Columns(8) 'Ｈ列

Columns(6) = vData4 'Ｈ列⇒6列
Columns(8) = vData3 'Ｆ列⇒Ｈ列
Columns(4) = vData2 'Ｉ列⇒Ｄ列
Columns(9) = vData1 'Ｄ列⇒Ｉ列

Application.Speech.Speak "転記終了しました"
End Sub

Answer 2

移動したい列データを切り取り、挿入したい列に挿入、という方法はどうですか？
例えば、C列の内容をB列に移動させたい場合は、以下のようになります。

    Dim dst
    Set dst = Columns("C:C")
    dst.Cut
    Dim cpy
    Set cpy = Columns("B:B")
    cpy.Insert Shift:=xlToRight

注意点は、切取・挿入により元の列が変わってしまう場合があることです。

Comments

[kenshirou]

大変失礼しました。
列入れ替えについては、hatena19様の御指摘の通り、提示のコードで特に問題なくできているようです。
私の回答はスルーしてください。