'*****************************************************************
'* S_Head table header Information
'*****************************************************************
    Dim row As Integer
    Dim col As Integer
    Dim i As Integer
    Dim intColName As Integer
    Dim strLabel As String
    Dim strAddress As String
    Dim strTableBodyStrt As String
    Dim blRanks As Boolean
 
    Const intTableHRowBegin As Integer = 5
    Const intTableHColBegin As Integer = 0
    Const intLabel As Integer = 1
    Const strRotate As String = 270
    Const strRowspan As String = 6
 
    blRanks = False
    i = intTableHRowBegin
    Range(strStrtCell + "1").Offset(intLabel, 0).Select
    strLabel = Range(strStrtCell + "1").Offset(intLabel, 0).Value
 
    If strLabel = "Component" Then
       i = 8
    End If
 
    If strLabel = "FBDIMM" Then
        strTableBodyStrt = "ICC_Idle_0"
        'strTableBodyStrt = "PCC_Idle_0"
    Else
        strTableBodyStrt = "IDD0"
    End If
 
    Range(strStrtCell + "1").Offset(i, 0).Select
 
   Set xmlS_HeadElement = xml.createElement("S_Head")
   xmlS_TableElement.appendChild xmlS_HeadElement
 
    While Range(strStrtCell + "1").Offset(i, 0).Value <> strTableBodyStrt
        Set xmlS_HRowElement = xml.createElement("S_HRow")
        xmlS_HeadElement.appendChild xmlS_HRowElement
        subxmlAttribute "rowsep", "1", xmlS_HRowElement
 
        For col = 0 To (intCols - 1)
        Range(strStrtCell + "1").Offset(i, col).Select
        Select Case i
            Case 5
 
                If col = 0 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 > 0) 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
                    subxmlText Range(strStrtCell + "1").Offset(i, col).Value, _
                      xmlS_HCellBodyElement
                    If (intCols > 6) Then
                        subxmlAttribute "rotate", strRotate, xmlS_HCellElement
                     End If
                ElseIf (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
                    subxmlText Range(strStrtCell + "1").Offset(i, col).Value, _
                      xmlS_HCellBodyElement
                    subxmlAttribute "rowspan", strRowspan, xmlS_HCellElement