How to use rep and loops

[AHappyTurtle]

Good Moring.
I need help with code and how to do the same command over and over with increasing Y or "enter" once every time it runs. 
As you can see I copy from Excel cell and use It to search in my application and search. From there, I grab information and paste it back into the Excel, go down one cell, and repeat.

This is what I have. 

act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 224 281 ;; click top of doc
'Y Y               ;; Enterooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
'Cc             ;; Ctrl+C
act(win(" Applications - "))
lef 1200 700
dou 1172 740  ;;SunAwtCanvas CLICK DOC 
'Cv Y            ;; Ctrl+V   PASTE
dou 215 181 ;; select sr
'Cc ;; copy
act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 323 285 ;; click top of sr
'Y Y  ;; enter to location000000000000000000000000000000000000000000000000000000000000000000000000
'Cv ;; paste



act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 224 281 ;; click top of doc
'Y Y Y               ;; Enterooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
'Cc             ;; Ctrl+C
act(win("Applications -"))
lef 1200 700
dou 1172 740  ;;SunAwtCanvas CLICK DOC 
'Cv Y            ;; Ctrl+V   PASTE
dou 215 181 ;; select sr
'Cc ;; copy
act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 323 285 ;; click top of sr
'Y Y Y  ;; enter to location000000000000000000000000000000000000000000000000000000000000000000000000
'Cv ;; paste



act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 224 281 ;; click top of doc
'Y Y Y Y                ;; Enterooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
'Cc             ;; Ctrl+C
act(win("Applications - "))
lef 1200 700
dou 1172 740  ;;SunAwtCanvas CLICK DOC 
'Cv Y            ;; Ctrl+V   PASTE
dou 215 181 ;; select sr
'Cc ;; copy
act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 323 285 ;; click top of sr
'Y Y Y Y   ;; enter to location000000000000000000000000000000000000000000000000000000000000000000000000
'Cv ;; paste



act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 224 281 ;; click top of doc
'Y Y Y Y Y                ;; Enterooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
'Cc             ;; Ctrl+C
act(win("Applications - "))
lef 1200 700
dou 1172 740  ;;SunAwtCanvas CLICK DOC 
'Cv Y            ;; Ctrl+V   PASTE
dou 215 181 ;; select sr
'Cc ;; copy
act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 323 285 ;; click top of sr
'Y Y Y Y Y  ;; enter to location000000000000000000000000000000000000000000000000000000000000000000000000
'Cv ;; paste



act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 224 281 ;; click top of doc
'Y Y Y Y Y Y               ;; Enterooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
'Cc             ;; Ctrl+C
act(win("Applications - "))
lef 1200 700
dou 1172 740  ;;SunAwtCanvas CLICK DOC 
'Cv Y            ;; Ctrl+V   PASTE
dou 215 181 ;; select sr
'Cc ;; copy
act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 323 285 ;; click top of sr
'Y Y Y Y Y Y  ;; enter to location000000000000000000000000000000000000000000000000000000000000000000000000
'Cv ;; paste



act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 224 281 ;; click top of doc
'Y Y Y Y Y Y Y                ;; Enterooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
'Cc             ;; Ctrl+C
act(win("Applications -"))
lef 1200 700
dou 1172 740  ;;SunAwtCanvas CLICK DOC 
'Cv Y            ;; Ctrl+V   PASTE
dou 215 181 ;; select sr
'Cc ;; copy
act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 323 285 ;; click top of sr
'Y Y Y Y Y Y Y  ;; enter to location000000000000000000000000000000000000000000000000000000000000000000000000
'Cv ;; paste



act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 224 281 ;; click top of doc
'Y Y Y Y Y Y Y Y              ;; Enterooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
'Cc             ;; Ctrl+C
act(win("Applications -"))
lef 1200 700
dou 1172 740  ;;SunAwtCanvas CLICK DOC 
'Cv Y            ;; Ctrl+V   PASTE
dou 215 181 ;; select sr
'Cc ;; copy
act(win("Book1 - Excel" "XLMAIN")) ;; open excel
dou 323 285 ;; click top of sr
'Y Y Y Y Y Y Y Y  ;; enter to location000000000000000000000000000000000000000000000000000000000000000000000000
'Cv ;; paste

[Gintaras]

Code:

Copy      Help

int i
for i 2 9
,key k(#i) Y