xlWorkSheet.Cells(1,iYear).Value = vePOC.ColumnValues(1) xlWorkSheet.Range("A"+Cstr(iYear+1)).Value = vePOC.ColumnValues(1)