エクセルの特定の列を、特定の列の下に移動させる

前提

エクセルのデータで分かれている同じ項目の列を、
同じ列の下に組み込みたいと思っています。

実現したいことで言うと、
国コード２と出願日２を、
国コード１と出願日２の下に移動したいと思っています。

検索してもわかりませんでした。
マクロで作成できますでしょうか？

実現したいこと

【元データ】
ID　国コード１　出願日１　国コード２　出願日２
１　JPN　　　　　K　　　　USA　　　　B
２　CHI　　　　　I　　　　 FRA　　　　J
３　KOR　　　　 R EIR T

↓
【改定データ】
ID　国コード　出願日
１　JPN　　　　K
１　USA　　　 B
２　CHI　　　　I
２　FRA　　　 J
３　KOR R
３　EUR T

よろしくお願い致します。