Sub 列を挿入する()

    Columns("B:B").Insert

End Sub