#
# References through first 1000 rows on columns A through P
#

CellSet $activeSheet 0 0 1
CellSet $activeSheet 0 1 "=A1+1"
CopyToPasteBuffer $activeSheet 0 1
Paste $activeSheet  0 2  0 999 0 0
CellSet $activeSheet 1 0 "=A1+1"
CopyToPasteBuffer $activeSheet 1 0
Paste $activeSheet  2 0 15 0 0 0
CopyToPasteBuffer $activeSheet  1 0  15 0 
Paste $activeSheet  1 1  15 999 0 0
set s [time [list CellSet $activeSheet 0 0 10]]
puts $s
