oExcel.WorkBooks(1).Worksheets(1).UsedRange.Rows
oExcel.WorkBooks(1).Worksheets(1).UsedRange.Rows + oExcel.WorkBooks(1).Worksheets(1).UsedRange.Row - 1