[RESOLVED] Writing to a new line in Excel

[TnTinMN]

Try a little test:

Change:

'Find Last Row'

oXLSheet.Range("A" & CStr(oXLSheet.Range("A1").End(Excel.XlDirection.xlDown).Row + 1)).Select()

to:

'Find Last Row'

Dim maxRow As Int32  = oXLSheet.Rows.Count
Dim nextRow As Int32 = oXLSheet.Range("A1").End(Excel.XlDirection.xlDown).Row + 1
If nextRow > maxRow Then Stop

oXLSheet.Range("A" & CStr(oXLSheet.Range("A1").End(Excel.XlDirection.xlDown).Row + 1)).Select()

and let us know what happens.