宏未在上次使用的单元格中停止

Question

我正在尝试创建一个宏来即兴创作，但是它并没有停止在使用的最后一个单元格中。我认为以下行会导致此问题：

For i = 2 to objSheet.UsedRange.Rows.Count

我在做什么错了？

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]").maximize
REM ADDED BY EXCEL *************************************
Dim objExcel
Dim objSheet, intRow, i
Set objExcel = GetObject(,"Excel.Application") 
Set objSheet = objExcel.ActiveWorkbook.ActiveSheet

For i = 2 to objSheet.UsedRange.Rows.Count 
    COL1 = Trim(CStr(objSheet.Cells(i, 1).Value)) 'Column1
    COL2 = Trim(CStr(objSheet.Cells(i, 2).Value)) 'Column2

    REM ADDED BY EXCEL ************************************* 

    session.findById("wnd[0]/mbar/menu[0]/menu[4]").select
    session.findById("wnd[1]/usr/ctxtRIPW0-MATNR").text = COL1
    session.findById("wnd[1]/usr/ctxtRIPW0-SERNR").text = COL2
    session.findById("wnd[1]/usr/ctxtRIPW0-SERNR").setFocus
    session.findById("wnd[1]/usr/ctxtRIPW0-SERNR").caretPosition = 7
    session.findById("wnd[1]/tbar[0]/btn[0]").press
    session.findById("wnd[2]/tbar[0]/btn[0]").press
    session.findById("wnd[2]/tbar[0]/btn[0]").press
    session.findById("wnd[0]/tbar[0]/btn[3]").press

    REM FINALIZATION CONTROL CHECK ************************

    aux=col1 & " " & col2 & " " 

    CreateObject("WScript.Shell").run("cmd /c @echo %date% %time% " & aux & "         >> C:\SCRIPT\PlOrCreationLog.txt")

next



msgbox "Process Completed"



REM FINALIZATION CONTROL CHECK ************************