Sub 列をカットして挿入()
‘
‘　L列をカットして、G列に挿入
Columns(“L:L”).Select
Selection.Cut
Columns(“G:G”).Select
Selection.Insert Shift:=xlToRight

End Sub