#include <Date.au3>
#include <GUIConstants.au3>
#include <Excel.au3>
HotKeySet("{ESC}", "Terminate")
Func Terminate()
Exit 0
EndFunc ;==>Terminate
Local $oExcel = _Excel_Open()
Local $sWorkbook = "C:\Users\tvois\Desktop\Start\Start.xlsx"
Local $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook)
WinWaitActive("Start.xlsx", "", 10)
For $i = 1 To 120
Local $sCellValue = _Excel_RangeRead($oWorkbook, Default, "A" & $i)
Opt("MouseCoordMode", 0)
MouseClick("left", 154, 345)
MouseClick("left", 101, 378)
MouseClick("left", 250, 144)
_Excel_RangeWrite($oWorkbook, Default, $sCellValue, "B" & $i)
Next