Pessoal preciso de uma ajuda se possivel.

Tenho a macro sub parte2 e preciso deixar o script abaixo que tem o valor 9 em que esse 9 atualize de acordo com a informação da coluna E  a partir da linha 3.

Cada linha que vai ser percorrida pode ser um numero diferente e gostaria de deixar essa informação automática

session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").selectItem (" 9"), "&Hierarchy"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").ensureVisibleHorizontalItem " 9", "&Hierarchy"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").clickLink " 9", "&Hierarchy"

Sub Parte2()


If Not IsObject(Appl) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set Appl = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = Appl.Children(0)
End If
If Not IsObject(session) Then
Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject Appl, "on"
End If




Windows("Consultar Status Nota Fiscal.xlsm").Activate
Sheets("Planilha3").Select




session.findById("wnd").maximize
session.findById("wnd/tbar/okcd").Text = "/NEDOC_COCKPIT "
session.findById("wnd").sendVKey 0




session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").selectItem (" 9"), "&Hierarchy"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").ensureVisibleHorizontalItem " 9", "&Hierarchy"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").clickLink " 9", "&Hierarchy"



session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").sapEvent "Frame0", "sapbu_cl= &sapse_cl= &sapin_cl=A1F1I1NAME:LAST_DAYSsapENTER&A1F1I1=120", "sapevent:A1F1"
session.findById("wnd/usr/btnBUTTON_1").press
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").setCurrentCell -1, "NFENUM"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").selectColumn "NFENUM"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").pressToolbarButton "&MB_FILTER"
session.findById("wnd/usr/ssub%_SUBSCREEN_FREESEL:SAPLSSEL:1105/ctxt%%DYN001-LOW").Text = "000031945"
session.findById("wnd/usr/ssub%_SUBSCREEN_FREESEL:SAPLSSEL:1105/ctxt%%DYN001-LOW").caretPosition = 9
session.findById("wnd").sendVKey 0
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").currentCellColumn = ""
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").selectedRows = "0"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").pressContextButton "GOTO"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").selectMenuItem "DISPLAY_SOURCE"