Applescript on Numbers to copy rows between tables

Question

Hi,
I am an applescript newbie, but am trying to make my book-keeping spreadsheet a bit more comfortable. And this is the problem:
I have expenses that repeat every month and I would like to not have to rewrite them each time. So I thought I make a second table where I list all the repeating data and copy them into my main table. This works simply with selecting the row and then copy and paste in to the row of the main table.
But I would like to make it nicer, and my concept is to make this copy process simpler, by memorizing the row number of the second table, (e.g. row 5 contains the rental costs for my studio ), so I would select the last row and then type the number of the expected row in table 2 and have the content be automatically copied into the selected row of table 1 (main table).
I got the script to do so except the shortcuts for the keys. And I have no idea how to make the script understand that if I press the key for number "5" to start copying row 5 of table 2 into the last row of table 1. Here is my script as far as I got (it is far from finished I know, it is a test with 4 columns named "Art des Umsatzes", "Kategorie", "Projekt", "Betrag".
If anyone could give me advice ho to define that the keystrokes become variable b and d, I think I would be able to manage the rest.
Many thanks
Hans Peter
              tell application "Numbers"
                           tell table 2 of sheet 1 of document 1
                                     set a to b
                                     set tags to {"Art des Umsatzes", "Kategorie", "Projekt", "Betrag"}
                                     set tagValues to {}
                                     set theRange to "B" & a + 1 & ":" & "G" & a + 1
                                     set C to 1
                                     set setArt to value of cell C of range theRange
                                     set C to (C + 1)
                                     set setKat to value of cell C of range theRange
                                     set C to (C + 1)         
                                     set setProj to value of cell C of range theRange
                                     set C to (C + 1)
                                     set setBetr to value of cell C of range theRange   
                           end tell
                           tell table 1 of sheet 1 of document 1
                                     set a to d
                                     set tags to {"Art des Umsatzes", "Kategorie", "Projekt", "Betrag"}
                                     set tagValues to {}
                                     set theRange to "B" & a + 1 & ":" & "G" & a + 1
                                     set C to 1
                                     set value of cell C of range theRange to setArt
                                     set C to (C + 1)
                                     set value of cell C of range theRange to setKat
                                     set C to (C + 1)
                                     set value of cell C of range theRange to setProj
                                     set C to (C + 1)
                                     set value of cell C of range theRange to setBetr
                          end tell
               end tell

Answer 1

Hi HD
thanks for your prompt and very helpful response. Although I had to add some more, your suggestion paved the way. Your simpler suggestion with the reference does not really work (sorry.)
This is the solution. what you need to do is make 2 table. The first on has one row (title row) and 5 columns (first is title again). The second has 6 rows (one title) and 5 columns (first one title). then you fill in each of the cells a word or number.
Run the script and choose one of the 5 numbers, one row will be added and filled. That's what I hoped to get, only I cannot type, I have to click the number. That is a bit a shame, do you think Automator could make a bridge to connect the script number to the keys?
Well, anyhow. Thanks again for your great help.
All the best, Hans Peter
           tell application "Numbers"
                           tell table 2 of sheet 1 of document 1
                                     set b to (choose from list {1, 2, 3, 4, 5} with prompt "Nummer des Schlüssel")
                                     if the result is false then return
                                     set a to b as integer
                                     set tags to {"Art des Umsatzes", "Kategorie", "Projekt", "Betrag"}
                                     set tagValues to {}
                                     set theRange to "B" & a + 1 & ":" & "G" & a + 1
                                     set C to 1
                                     set setArt to value of cell C of range theRange
                                     set C to (C + 1)
                                     set setKat to value of cell C of range theRange
                                     set C to (C + 1)
                                     set setProj to value of cell C of range theRange
                                     set C to (C + 1)
                                     set setBetr to value of cell C of range theRange
                           end tell
                           tell table 1 of sheet 1 of document 1
                                     set d to count row
                                     add row below last row
                                     set d to d + 1
                                     set tags to {"Art des Umsatzes", "Kategorie", "Projekt", "Betrag"}
                                     set tagValues to {}
                                     set theRange to "B" & d & ":" & "G" & d
                                     set C to 1
                                     set value of cell C of range theRange to setArt
                                     set C to (C + 1)
                                     set value of cell C of range theRange to setKat
                                     set C to (C + 1)
                                     set value of cell C of range theRange to setProj
                                     set C to (C + 1)
                                     set value of cell C of range theRange to setBetr
                           end tell
          end tell