Игнорируя тот факт, что вам, вероятно, понадобится переустановить Office, вы захотите, чтобы ваш макрос выглядел примерно так:
Sub Macro1()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+h
'
With Selection
If .Columns.Count > 1 Or .Areas.Count > 1 Then
MsgBox "Select a single column."
Exit Sub
End If
.EntireColumn.Cut
.Offset(0, 3).EntireColumn.Insert Shift:=xlToRight
End With
End Sub