Sub OrganizeSections()
    Dim doc As Document
    Dim sec As Section
    Dim newSection As Section
    
    ' Set the source document
    Set doc = ActiveDocument
    
    ' Disable screen updating to improve performance
    Application.ScreenUpdating = False
    
    ' Loop through each section in the source document
    For Each sec In doc.Sections
        ' Check if the section contains "[A]"
        If InStr(sec.Range.Text, "[A]") > 0 Then
            ' Create a new section after the current one
            Set newSection = doc.Sections.Add
            ' Copy the content of the section to the new section
            newSection.Range.FormattedText = sec.Range.FormattedText
            ' Add a new line after the copied section
            newSection.Range.InsertAfter vbNewLine
        End If
    Next sec
    
    ' Enable screen updating
    Application.ScreenUpdating = True
End Sub