' spreadSheet = WScript.Arguments.Item(0)
timeCode = WScript.Arguments.Item(0)
secCode = WScript.Arguments.Item(1)

Set apExcel = GetObject(,"excel.application")
Set actWorkbook = apExcel.ActiveWorkBook
set objSheet = apExcel.ActiveWorkBook.WorkSheets("BACKUP")
set dataSheet = apExcel.ActiveWorkBook.WorkSheets("TRAP_SPEED")

apExcel.Visible = True
objSheet.Cells(1,1).Value = timeCode
objSheet.Cells(1,2).Value = secCode

activeRowNum = objSheet.Cells(2, 1).Value
if activeRowNum < 5 Then
	activeRowNum = 5
End If
trapRowNum = objSheet.Cells(2, 2).Value
if trapRowNum < 5 Then
	trapRowNum = 5
End If
timeSeries = objSheet.Cells(2, 3).Value
if timeSeries > 4 Then
  trapRowNum = trapRowNum + 1
  timeSeries = 3
End If
if timeSeries < 3 Then
  timeSeries = 3
End If


objSheet.Cells(activeRowNum,1).Value = timeCode
objSheet.Cells(activeRowNum,2).Value = secCode
objSheet.Cells(2,1).Value = activeRowNum + 1


'dataSheet.cells(trapRowNum,2).value = trapRowNum - 4
dataSheet.cells(trapRowNum,2).value = timeCode
dataSheet.cells(trapRowNum,timeSeries).value = secCode


' midRow is how many lines from the bottom the entry point will be.
' ie, current setting is 10 rows up from the bottom
midRow = activeRowNum + 10
apExcel.GoTo dataSheet.Range("A" & CStr(midRow) & ":A" & CStr(midRow))
apExcel.GoTo dataSheet.Range("A" & CStr(trapRowNum) & ":A" & CStr(trapRowNum))

objSheet.cells(2, 3).value = timeSeries + 1
objSheet.cells(2, 2).value = trapRowNum

actWorkbook.Save
' copy the current range after the save or it won't be selected anymore
objSheet.Range("A1:B1").Copy

' beep so the user knows what's up
set wshShell = Wscript.CreateObject("wscript.Shell")
beep = chr(007)
WshShell.Run "cmd /c @echo " & beep, 0