Excel VisualBasic Script

Sub break()
    ActiveDocument.Paragraphs(2).Range.InsertBreak Type:=wdColumnBreak
End Sub