Hello.
Move this three code lines
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "/nvf03"
session.findById("wnd[0]").sendVKey 0
to this Position
....
For i = 2 To xclapp.ActiveCell.SpecialCells(11).Row
Transaction = xclsht.Cells(i, 1).Value
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "/nvf03"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtVBRK-VBELN").text = Transaction
....