For Excel VBA expert only

[God love us]

Hi po patulong namn po ako gusto ko sana kunin yong specific nq information from website to my excel file. Ito po code ko sa excel vba ko
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Range("ID").Row And _
Target.Column = Range("ID").Column Then
Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate "http://mpcservicedesk.maaden.com:8400/WorkOrder.do?woMode=viewWO&woID=" & Range("ID").Value

Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE

Dim Doc As HTMLDocument
Set Doc = IE.document
Dim td As String
std = Trim(Doc.getElementsByTagName("td")(1).innerText)
Dim aTD As Variant
aTD = Split(std, ",")
Range("Badge").Value = aTD(1)
End If
End Sub


Tapos ito naman po yong code ng website na gusto kong pagkunan ng information lang Bagde no at grade po

<td nowrap="nowrap" width="15%">
<b><img align='absmiddle' src="/images/spacer.gif" height="22" width="1px">

Badge No
</b>
</td>


<td width="35%">

<div> <input type="hidden" id="FIXEDUDF_CHAR12" value="-1" ></input>
<input type="hidden" id="ALLOWUDF_CHAR12" value="false" ></input> <a class='spotEdit' href="javascript:void(0);" onClick="loadSimpleFields('UDF_CHAR12','SCAT_WO','104484','Single Line','5701')" val="0" id="UDF_CHAR12_CUR">0</a><div id="UDF_CHAR12_PH"></div>
</div>


<input type="hidden" id="UDF_CHAR12_MANDATORY" name="UDF_CHAR12_MANDATORY" value="true"/>
<input type="hidden" id="UDF_CHAR12_DISPLAYNAME" name="UDF_CHAR12_DISPLAYNAME" value="Badge No"/>

<div id="Badge No" class="hide">Badge No</div>
</td>


<td nowrap="nowrap" width="15%">
<b><img align='absmiddle' src="/images/spacer.gif" height="22" width="1px">

Grade
</b>
</td>


<td width="35%">

<div> <input type="hidden" id="FIXEDUDF_LONG2" value="-1" ></input>
<input type="hidden" id="ALLOWUDF_LONG2" value="false" ></input> <a class='spotEdit' href="javascript:void(0);" onClick="loadSimpleFields('UDF_LONG2','SCAT_WO','104484','Numeric Field','5701')" val="0" id="UDF_LONG2_CUR">0</a><div id="UDF_LONG2_PH"></div>
</div>


<input type="hidden" id="UDF_LONG2_MANDATORY" name="UDF_LONG2_MANDATORY" value="true"/>
<input type="hidden" id="UDF_LONG2_DISPLAYNAME" name="UDF_LONG2_DISPLAYNAME" value="Grade"/>

<div id="Grade" class="hide">Grade</div>
</td>
</tr>
<tr class='oddrow' nowrap="nowrap">



Marami pong salamat sa totolong po.