SAP tan excele veri kopyalamak

[Seli]

Herkese selam arkadaşlar,
Ben SAP tan kopyaladığım nihai veriyi excele yapıştırmak istiyorum, böyle bir şey mümkün mü? Kodum bu şekilde, şimdiden teşekkürler..

Sub sap2()
Set c = Sheets(1).Range("A:A").Find("Şubat", LookIn:=xlValues, LookAt:=xlWhole)

Dim application
Dim session

If Not IsObject(application) Then
   Set SapGuiAuto = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
   Set Connection = application.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 application, "on"
End If
session.findById("wnd[0]").resizeWorkingPane 138, 18, False
session.findById("wnd[0]/tbar[0]/okcd").Text = "MB51"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtWERKS-LOW").Text = "1611"
session.findById("wnd[0]/usr/ctxtLGORT-LOW").Text = "1604"
session.findById("wnd[0]/usr/ctxtBWART-LOW").Text = "311"
session.findById("wnd[0]/usr/ctxtSOBKZ-LOW").Text = "Q"
session.findById("wnd[0]/usr/ctxtSOBKZ-LOW").SetFocus
session.findById("wnd[0]/usr/ctxtSOBKZ-LOW").caretPosition = 1
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtBUDAT-LOW").Text = "01.02.2021"   
session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").Text = "28.02.2021"
session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").SetFocus
session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").caretPosition = 10
session.findById("wnd[0]").sendVKey 8
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell -1, "ERFMG"
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").firstVisibleColumn = "BKTXT"
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectColumn "ERFMG"
session.findById("wnd[0]/tbar[1]/btn[19]").press     ' BUNU KOPYALAMAK İSTİYORUM'

'pression.Copy   ' ÇALIŞMADI'
'session.findById("wnd[0]/tbar[1]/btn[19]").Copy  ' ÇALIŞMADI'
    
End Sub

Press ten sonra kopyalayıp excele yapıstırması mümkün mü arkadaşlar, acil yardıma ihtiyacım var yardımcı olursanız çok çok seviniriim..