Applescript excel copy paste repeat...

Question

I'm trying to set up a simple applescript to copy a cell and paste it repeatedly down the column to the last record.
Can some one help?
The closest I could find is this:
tell application "Microsoft Excel"
  copy range range "I1"
  paste special range "I2:I5" what paste values
end tell
This works, but I need the script to determine the number of rows with data and paste that many times.

Answer 1

Glad to help!
A few things to add:
1.  You only need a tell...end tell for the whole script as you're only addressing the one app
2.  It would be useful to enclose the whole of the script (inside the tell Excel) in the
          tell active sheet of active workbook ... end tell
construction.
3.  At the end you can substitute the copy/paste special with:
          set (value of range ("F2:F" & rowCount)) to (get value of range ("E2:E" & rowCount))
4. If you do have a header row, then the following changes in the concatenation section (but, I suppose, given that it's going to be deleted it doesn't really matter!)
  set formula of cell "E2" to "=(IF(ISBLANK(D2),,C2&\" \"&D2))"
          fill down range ("E2:E" & rowCount)
It should end up looking like this:
tell application "Microsoft Excel"
          tell active sheet of active workbook
  -- remove unneeded columns
                    set mycolumns to range "M:ZZ"
  delete mycolumns
                    set mycolumns to range "D:G"
  delete mycolumns
                    set mycolumns to range "A:A"
  delete mycolumns
  -- Insert 2 columns to work with
  insert into range column 5
  insert into range column 5
  --contencate addresses from C&D into E
                    set formula of cell "ZZ1" to "=MATCH(REPT(\"z\",50),D:D)"
                    set rowCount to get value of cell "ZZ1" as integer
                    set value of cell "ZZ1" to ""
                    set formula of cell "E2" to "=(IF(ISBLANK(D2),,C2&\" \"&D2))"
                    fill down range ("E2:E" & rowCount)
  -- copy a Contencated address values to column F and delete columns C, D, E
                    set (value of range ("F2:F" & rowCount)) to (get value of range ("E2:E" & rowCount))
  delete column "C:E"
          end tell
end tell