Sub 列を選択して削除()
‘
‘ B列からG列削除
Columns(“B:G”).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft

End Sub