Sub CountSection()

    Dim NumSec As Integer
    Dim S As Integer
    Dim Summary As String

    Dim appXl As Excel.Application
    Dim wb As Excel.Workbook
    Set appXl = GetObject(, "Excel.Application")
'   Set appXl = CreateObject("Excel.Application")
    appXl.Visible = True
    
    Dim LastRow As Long

    appXl.Range("D17").Select
    
    NumSec = ActiveDocument.Sections.Count

    For S = 2 To NumSec
  
        Summary = Summary & ActiveDocument.Sections(S).Range.ComputeStatistics(Statistic:=wdStatisticCharactersWithSpaces)
        appXl.Selection.Offset(1, 0).Select
        appXl.Selection.Value = Summary
        Summary = 0
    
    Next

End Sub