How to copy "Create On" and "Time" data on VA03

Kindly assistance maine connected however to transcript the CREATE ON day and clip from the T-code VA03 tab Sales.

My Script is not moving properly:

Session.findById("wnd[0]").maximize
Session.findById("wnd[0]/tbar[0]/okcd").Text = "/NVA03"
Session.findById("wnd[0]").sendVKey 0
Session.findById("wnd[0]/usr/ctxtVBAK-VBELN").Text = "2201319443"
Session.findById("wnd[0]/usr/ctxtVBAK-VBELN").caretPosition = 10
Session.findById("wnd[0]").sendVKey 0
Session.findById("wnd[0]").sendVKey 0
Session.findById("wnd[0]").sendVKey 26
Session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01").Select
Session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4012/txtVBAK-BSTNK").SetFocus
Session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4012/txtVBAK-BSTNK").caretPosition = 10

Session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV45A:4301/ctxtVBAK-ERDAT").caretPosition = 10
Session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV45A:4301/ctxtVBAK-ERDAT").selectColumn "ERDAT"
Session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV45A:4301/ctxtVBAK-ERDAT").contextMenu
Session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\01/ssubSUBSCREEN_BODY:SAPMV45A:4301/ctxtVBAK-ERDAT").selectContextMenuItemByPosition "0"

ThisWorkbook.Sheets("Sheet1").Range("K10").PasteSpecial SkipBlanks:=True