#
# Delete columns A to P
#

CellSet $activeSheet 0 0 5
CopyToPasteBuffer $activeSheet 0 0
Paste $activeSheet 0 0 0 59 0 0
Paste $activeSheet 1 0 15 59 0 0
set s [time [list DeleteRowOrColumn $activeSheet 0  16  c 1]]
puts $s
