Using AppleScript To Pull Data From Number & Create Calendar Events

Question

Today I tried running an AppleScript that I created a few years back that works with Number ’09 [version 2.3 (554)].  The script collects information from the active numbers table and creats an event in my calendar for each row of data in the table.  For some reason its not working with the current version of number.
Here is the script:
on run
  set cr to ASCII character 13
  set newline to return
  local dName, sName, tName, rowCount, workingCalendar, maintenanceType
  -- get general document information like document name, active sheet name, active table name & the number of rows in the active sheet
  set {dName, sName, tName, rowCount} to my get_document_information()
  -- get information needed to update a calendar in the calendar application like the calendar that needs to be updated and the type of maintenance that will be completed
  set {workingCalendar, maintenanceType} to my get_calendar_update_information()
  -- update calendar maintenance type so the computer can say it
  if maintenanceType = "add" then
  set maintenanceTypeChanged to maintenanceType & "ed"
  set lastpartofsentence to "to calendar"
  else if maintenanceType = "update" then
  set maintenanceTypeChanged to maintenanceType & "d"
  set lastpartofsentence to "in calendar"
  else if maintenanceType = "delete" then
  set maintenanceTypeChanged to maintenanceType & "d"
  set lastpartofsentence to "from calendar"
  end if
  say "Events will be" & maintenanceTypeChanged & lastpartofsentence & workingCalendar
  --determine if calendar already exists.  If it does not create it
  tell application "Calendar"
  set allCalendarTitles to the title of every calendar
  if allCalendarTitles contains workingCalendar then
  --do nothing
  else
  create calendar with name workingCalendar
  end if
  end tell
  set timedifferance to 4
  -- get event information for each row in active table
  say "table name is " & tName
  repeat with rownumber from 1 to rowCount
tell application "Numbers" to tell row rownumber of tName to set {cell04, cell05, cell06, cell07, cell08, cell09, cell10} to {value of cell 4, value of cell 5, value of cell 6, value of cell 7, value of cell 8, value of cell 9, value of cell 10}
  set cell07 to SearchReplace(cell07, "|", newline)
  tell application "Calendar"
  activate
  if maintenanceType = "Delete" then
  tell calendar workingCalendar to delete (first event whose summary contains cell04 and start date is equal to (cell05 + (timedifferance * hours)))
  end if
  if maintenanceType = "Update" then
  tell calendar workingCalendar to delete (first event whose summary contains cell04 and start date is equal to (cell05 + (timedifferance * hours)))
  tell calendar workingCalendar to set test to make new event at the beginning of events with properties {start date:cell05 + (timedifferance * hours), end date:cell06 + (timedifferance * hours), description:cell07, summary:cell04, location:cell10}
  end if
  if maintenanceType = "Add" then
  tell calendar workingCalendar to set test to make new event at the beginning of events with properties {start date:cell05 + (timedifferance * hours), end date:cell06 + (timedifferance * hours), description:cell07, summary:cell04, location:cell10}
  end if
  end tell
  end repeat
  say "Events have been " & maintenanceTypeChanged
end run
on get_document_information()
  -- Get general document information for later use
  local d_name, s_name, selectedTable, t_name, row_count
  tell application "Numbers" to tell document 1
  -- get document name
  set d_name to name
  -- get sheet name
  set s_name to name of active sheet
  -- get table name
  tell active sheet
  set the selectedTable to (the first table whose class of selection range is range)
  end tell
  tell selectedTable
  set t_name to name
  set row_count to row count
  end tell
  return {d_name, s_name, t_name, row_count}
  end tell
end get_document_information
on get_calendar_update_information()
  local strCalendarToWorkWith, strMaintenanceType
  tell application "Numbers"
  activate
  tell document 1 to tell sheet "General Information" to tell table "Table 1"
  copy value of cell "C9" to strCalenderToWorkWith
  copy value of cell "C12" to strMaintenanceType
  end tell
  return {strCalenderToWorkWith, strMaintenanceType}
  end tell
end get_calendar_update_information
on SearchReplace(sourceStr, searchString, replaceString)
  -- replace <searchString> with <replaceString> in <sourceStr>
  -- return SearchReplace(theString, ".", "<PERIOD>")
  set searchStr to (searchString as text)
  set replaceStr to (replaceString as text)
  set sourceStr to (sourceStr as text)
  set saveDelims to AppleScript's text item delimiters
  set AppleScript's text item delimiters to (searchString)
  set theList to (every text item of sourceStr)
  set AppleScript's text item delimiters to (replaceString)
  set theString to theList as string
  set AppleScript's text item delimiters to saveDelims
  return theString
end SearchReplace
When running the script in the current version of Numbers [version 3.2 (1861)] I receive the following error message:
Here is what the table looks like:
Can anyone help me correct this error/issue?
Thank you,
Brian

Answer 1

The error ocurs right after it speaks the table name?  The error is highlighting the suspect line in the first screenshot.
I think the "T" in the error is coming from the Table name, so try  replacing the line in question with this mess
          tell application "Numbers"
                    tell document 1
                              tell active sheet
                                        tell table tName
                         set {cell04, cell05, cell06, cell07, cell08, cell09, cell10} to {value of cell 4, value of cell 5, value of cell 6, value of cell 7, value of cell 8, value of cell 9, value of cell 10}
                                        end tell
                              end tell
                    end tell
          end tell
NB original was
tell application "Numbers" to tell row rownumber of tName to set {cell04, cell05,cell06, cell07, cell08, cell09, cell10} to {value of cell 4, value of cell5, value of cell 6, value of cell 7, value of cell 8, value of cell 9,value of cell 10}
I don't know Numbers & Applescripting so you'll probably need to work on it some more, I gleaned the 'tell document & tell active sheet, tell table' from the script near the bottom.
http://www.macosxautomation.com/applescript/iwork/numbers/table-populate.html
It's a little unclear to me where the 'get document' info comes from, since you are not telling Numbers within that part.