Excel Loop Issue

Hi All,

I seem to be having an issue where not all data is being displayed in my new excel book.

The code below works for the most part but only seems to work up to cell 259 and then I get an error from the UDF.

Any Help would be much appreciated.

UDF Error - when running my code

C:\AutoIt3\Include\Excel.au3 (451) : ==> The requested action with this object has failed.:
$oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Value = $sValue
$oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Value = $sValue^ ERROR

My Code

#include <Excel.au3>
#include <Array.au3>

;~ Open Excel Sheet
Local $var = FileOpenDialog("Open", @WindowsDir & "\", "Excel (*.xls;*.csv;*.xlsx)", 1 + 4)
Local $oExcel = _ExcelBookOpen($var)

;~ Read Sheet to Array
$vSheetArray = _ExcelReadSheetToArray($oExcel, 1, 1, 0, 7)

;~ Create a seperate new excel book
$oExcel2 = _ExcelBookNew()

;~ Loop Through array, clean up and print to new book
For $i = 1 to $vSheetArray[0][0]

$vNum = StringSplit($vSheetArray[$i][7], " ")
$vDate = StringLeft($vSheetArray[$i][1], 10)

_ExcelWriteCell($oExcel2, $vDate, $i, 1)
_ExcelWriteCell($oExcel2, $vNum[1], $i, 2)

Next

;~ Close book
_ExcelBookClose($oExcel, 1, 0)