ElseIf (i = 8) And (col = 0) And (strLabel = "Component") Then
                    Set xmlS_HCellElement = xml.createElement("S_HCell")
                    xmlS_HRowElement.appendChild xmlS_HCellElement
                    subxmlAttribute "colname", col + 1, xmlS_HCellElement
 
                    Set xmlS_HCellBodyElement = xml.createElement("S_HCellBody")
                    xmlS_HCellElement.appendChild xmlS_HCellBodyElement
                    subxmlAttribute "rowspan", "2", xmlS_HCellElement
                 ElseIf (i = 7) And (col = 0) And (strLabel = "FBDIMM") Then
                    Set xmlS_HCellElement = xml.createElement("S_HCell")
                    xmlS_HRowElement.appendChild xmlS_HCellElement
                    subxmlAttribute "colname", col + 1, xmlS_HCellElement
 
                    Set xmlS_HCellBodyElement = xml.createElement("S_HCellBody")
                    xmlS_HCellElement.appendChild xmlS_HCellBodyElement
                    subxmlText Range(strStrtCell + "1").Offset(i, col).Value, _
                      xmlS_HCellBodyElement
                 ElseIf (i = 8) And ((col = intCols - 2) Or (col = intCols - _
                 1)) And (strLabel = "Component") Then
                        Set xmlS_HCellElement = xml.createElement("S_HCell")
                        xmlS_HRowElement.appendChild xmlS_HCellElement
                        subxmlAttribute "colname", col + 1, xmlS_HCellElement
 
                        Set xmlS_HCellBodyElement = xml.createElement( _
                          "S_HCellBody")
                        xmlS_HCellElement.appendChild xmlS_HCellBodyElement
                        If (col = intCols - 1) And (strLabel <> "Component") Then
                            strAddress = Range(strStrtCell + "1").Offset(i, _
                              col).Address
                            strAddress = Replace(strAddress, "$", "JM")
                            subxmlText Range(strStrtCell + "1").Offset(i, _
                              col).Value, xmlS_HCellBodyElement
                            subxmlAttribute "rowspan", "3", xmlS_HCellElement
                            subFootnotes strAddress, strLabel, blRanks, "1", _
                              xmlS_HCellBodyElement
                        Else
                            subxmlText Range(strStrtCell + "1").Offset(i, _
                              col).Value, xmlS_HCellBodyElement
                            subxmlAttribute "rowspan", "3", xmlS_HCellElement
                        End If
 
                 End If
 
        End Select
        Next
        i = i + 1
    Wend
    subS_BodyElement strStrtCell, intCols, blFootnote1, blRanks
End Sub
 
Sub subS_BodyElement(ByVal strStrtCell As String, ByVal intCols As Integer, _
  ByVal blFootnote1 As Boolean, ByVal blRanks As Boolean)
 
'*****************************************************************
'* S_Body
'*****************************************************************
    Dim row As Integer
    Dim col As Integer
    Dim i As Integer
    Dim intNo As Integer
    Dim intColName As Integer
    Dim strLabel As String
    Dim strAddress As String
    Dim strAddress1 As String
    Dim strAddress2 As String
    Dim strAddress3 As String
    Dim strAddress4 As String
 
    Dim strNoOfFootnotes As Variant
 
    Const intBodyRowBegin As Integer = 11
    Const intBodyColBegin As Integer = 0
    Const intLabel As Integer = 1
 
    'blFootnote1 = False
    blFootnote2 = False
    blFootnote3 = False
    intNo = 0
 
    Range(strStrtCell + "1").Offset(intLabel, 0).Select
    strLabel = Range(strStrtCell + "1").Offset(intLabel, 0).Value
 
    If strLabel = "FBDIMM" Then
        i = intBodyRowBegin - 3
    Else
        i = intBodyRowBegin
    End If
 
    Range(strStrtCell + "1").Offset(i, 0).Select
    Set xmlS_BodyElement = xml.createElement("S_Body")
    xmlS_TableElement.appendChild xmlS_BodyElement
 
    While Range(strStrtCell + "1").Offset(i, 0).Value <> "End"
        Set xmlS_RowElement = xml.createElement("S_Row")
        xmlS_BodyElement.appendChild xmlS_RowElement
        subxmlAttribute "rowsep", "1", xmlS_RowElement