Ayuda SAP

Recorrer excep para llenar sap

buen dia compañeros actual mente estoy en una pantalla sap la cual estoy ingresando información por medio del script
image

el cual me llena la información de un excel con 1 columna y 3 filas el problema es que no me recorre el excel y solo me ingresa el primer campo y se repite en orden descendente en el sap

codigo

'Llamar archivo de excel -

Dim objExcel
Dim objWorkBook
Set objExcel = CreateObject(“EXCEL.APPLICATION”)

'Colocar la RUTA

Set objWorkBook = objExcel.Workbooks.Open(“C:\Users\andresfernando.lozan\Desktop\codigs.xlsx”)

'Colocar la hoja de excel

Set Hoja=objWorkBook.Sheets(“Hoja1”)
objWorkBook.Sheets(“Hoja1”).Select
objExcel.visible=true

Hoja.Select
intFila=2

x=0

'Colocar el nombre de la primera variable y que esté en la columna A
Codigo=Hoja.Range(“A” & intFila).value

'while Codigo <> “”

'en esta parte declare x en 0 para tener un contador y ir cambiando de fila en sap

session.findById(“wnd[0]”).maximize
session.findById(“wnd[0]/usr/btn%W_MATNR%APP%-VALU_PUSH”).press
session.findById(“wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I[1,” & x & “]”).text = Codigo

x=x+1

intFila = intFila +1

'WEND