ElseIf (col = intCols - 1) 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
                    strAddress = Range(strStrtCell + "1").Offset(i, col).Address
                    strAddress = Replace(strAddress, "$", "JM")
                    subxmlText Range(strStrtCell + "1").Offset(i, col).Value, _
                      xmlS_HCellBodyElement
                    subxmlAttribute "rowspan", strRowspan, xmlS_HCellElement
                    If strLabel <> "FBDIMM" Then
                        subFootnotes strAddress, strLabel, blRanks, "1", _
                          xmlS_HCellBodyElement
                        blFootnote1 = True
                    End If
                End If
 
             Case 6 To 10
 
                If col = 0 And i = 6 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
                    If strLabel = "FBDIMM" Then
                        subxmlAttribute "rowspan", "0", xmlS_HCellElement
                    Else
                        subxmlAttribute "rowspan", "4", xmlS_HCellElement
                    End If
                 ElseIf col = 0 And i = 10 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 (col >= 1 And col < (intCols - 2)) 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 (i = 7) And InStr(1, Range(strStrtCell + "1").Offset(i, _
                      col).Value, "2") Then
                        blRanks = True
                    End If
 
                    If (i = 8) And ((strLabel <> "Component") And (strLabel _
                      <> "FBDIMM")) Then
                        subSymbolCharElement "¥", xmlS_HCellBodyElement
                        subxmlText Mid(Range(strStrtCell + "1").Offset(i, _
                          col).Value, 2), xmlS_HCellBodyElement
                    ElseIf (i = 8) And (strLabel = "Component") Then
                        subxmlText Mid(Range(strStrtCell + "1").Offset(i, _
                          col).Value, 1), xmlS_HCellBodyElement
                    ElseIf (i = 6) And (strLabel = "FBDIMM") Then
                        subxmlText Left(Range(strStrtCell + "1").Offset(i, _
                          col).Value, 9), xmlS_HCellBodyElement
                        Set xmlS_HCellBodyElement = xml.createElement( _
                        "S_HCellBody")
                        xmlS_HCellElement.appendChild xmlS_HCellBodyElement
                        subxmlText Mid(Range(strStrtCell + "1").Offset(i, _
                          col).Value, 10), xmlS_HCellBodyElement
                    Else
                        subxmlText Range(strStrtCell + "1").Offset(i, _
                          col).Value, xmlS_HCellBodyElement
                    End If