Runtime Error 1004

[evan.shaw88]

I need some assistance with this error. I cannot figure out why it is not working correctly as other macros I use setup similarly work just fine. I receive the runtime error where the code is bolded. Trying to take the data pulled from the one sheet, copy it, and place it in another.

Edit by Mod Error at "<<<<<<<<<<<<<<<"

Private Sub CommandButton1_Click()

'Establish connection to SAP
Dim App, Connection, session As Object
Set SapGuiAuto = GetObject("SAPGUI")
Set App = SapGuiAuto.getscriptingEngine
Set Connection = App.Children(0)
Set session = Connection.Children(0)

'If MsgBox("Are yellow date boxes updated? ", vbYesNo) = vbNo Then Exit Sub
'If MsgBox("Are all close transactions complete? ", vbYesNo) = vbNo Then Exit Sub

'Clear Previous Data
    Sheets("Data_Input").Select
    Sheets("Data_Input").Cells.ClearContents

'Data_Input
session.findById("wnd[0]/tbar[0]/okcd").Text = "s_alr_87012052"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/btn[0]").press
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssub/1/2/tblSAPLALDBSINGLE/ctxt[1,0]").Text = "5101"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssub/1/2/tblSAPLALDBSINGLE/ctxt[1,1]").Text = "3751"
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssub/1/2/tblSAPLALDBSINGLE/ctxt[1,1]").SetFocus
session.findById("wnd[1]/usr/tabsTAB_STRIP/tabpSIVA/ssub/1/2/tblSAPLALDBSINGLE/ctxt[1,1]").caretPosition = 4
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/usr/rad[0]").Select
session.findById("wnd[0]/usr/ctxt[13]").Text = "30"
session.findById("wnd[0]/usr/ctxt[15]").Text = "z_retirement"
session.findById("wnd[0]/usr/ctxt[16]").Text = Worksheets("Input Page").Range("D3").Text
session.findById("wnd[0]/usr/ctxt[17]").Text = Worksheets("Input Page").Range("D4").Text
session.findById("wnd[0]/usr/ctxt[17]").SetFocus
session.findById("wnd[0]/usr/ctxt[17]").caretPosition = 10
session.findById("wnd[0]").sendVKey 8

'click the export to file button
session.findById("wnd[0]/tbar[1]/btn[9]").press
'choose the export format
session.findById("wnd[1]/usr/sub/2/sub/2/1/rad[1,0]").Select
session.findById("wnd[1]/usr/sub/2/sub/2/1/rad[1,0]").SetFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
'choose the export file name
session.findById("wnd[1]/usr/ctxt[0]").Text = "\\us-filesp02\Teams2\FIXEDASSETS\FixedAssetReports\AssetRetirements\"
session.findById("wnd[1]/usr/ctxt[1]").Text = "assetretirements.xls"
session.findById("wnd[1]/usr/ctxt[1]").caretPosition = 20
session.findById("wnd[1]/tbar[0]/btn[11]").press

'Once you open this workbook that has the exported information you can start using the Excel Macro Record
Workbooks.Open ("\\us-filesp02\Teams2\FIXEDASSETS\FixedAssetReports\AssetRetirements\assetretirements.xls")
    
'Copy the information that was exported from excel
    Windows("assetretirements.xls").Activate
    Range("A1").Select '<<<<<<<<<<<<<<<
    Columns("A:Q").Select
    Selection.Copy
    'Below line needs to be updated to correct file name
    Windows("Asset_Retirements.xlsm").Activate
    Sheets("Data_Input").Select
    Range("A1").Select
    ActiveSheet.Paste
    Columns("A:N").Select
    Columns("A:N").EntireColumn.AutoFit
    Range("A1").Select
    'Below line needs to be updated to correct file name
    Windows("assetretirements.xls").Activate
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = " "
    Range("A2").Select
    Selection.Copy
    ActiveWorkbook.Close (SaveChanges = False)
    Sheets("Input Page").Select
    Range("A2").Select
    ActiveWorkbook.Save
   
End Sub