>>471
コピー元シートのマクロに適当なショートカットで以下の文をコピペして使用してみて下さい

ActiveSheet.Range(Cells(Selection.Row, Selection.Column + 1), Cells((Selection.Row - 1) + Selection.Rows.Count, Selection.Column + 1)).Select
Selection.Copy

１．まず列中を縦方向にコピー元範囲を指定してコピーして下さい（コピー元列の一番左の列から始めて下さい）
２．コピー先からコピー元に戻る時に選択範囲を変更しない様に注意して下さい
３．ショートカットコマンドを入力してコピー元が右隣に移動してる事を確認してコピー先に貼り付けて下さい
４．２から繰り返し