tell application "Numbers"
　　tell front document
　　　　tell active sheet
　　　　　　try
　　　　　　　　set theTable to first table whose class of selection range is range
　　　　　　on error
　　　　　　　　display notification "Numbers: There is no selection"
　　　　　　　　return
　　　　　　end try
　　　　　　
　　　　　　tell theTable
　　　　　　　　set aRes to value of cells of selection range
　　　　　　end tell
　　　　　　
　　　　　　set aLen to length of aRes
　　　　　　set newList to makeSequential1DList(aLen) of me
　　　　　　
　　　　　　tell theTable
　　　　　　　　set cList to cells of selection range
　　　　　　end tell
　　　　　　
　　　　　　repeat with i from 1 to aLen
　　　　　　　　set anObj to contents of item i of cList
　　　　　　　　set aVal to contents of item i of newList
　　　　　　　　
　　　　　　　　ignoring application responses
　　　　　　　　　　set value of anObj to aVal
　　　　　　　　end ignoring
　　　　　　　　
　　　　　　end repeat
　　　　end tell
　　end tell
end tell