>		#DEFINE xlDBF3	8	
>		oExcel = CreateObject("Excel.Application")
>		oExcel.Workbooks.Open(.pcapdatapath + "upgrade.xls")
>		erase sample.dbf
>		oExcel.ActiveWorkbook.SaveAs(.pcardatapath + "upgrade.dbf", xlDBF3)
>		oExcel.Activeworkbook.Close(0)
>

#DEFINE xlDBF3	8
#DEFINE xlLastCell 11
*** snip ***
erase addbs(.pcardatapath) + "upgrade.dbf"

**>>> Select the last cell with data
oExcel.ActiveCell.SpecialCells(xlLastCell).Select
**<<< end additional code

oExcel.ActiveWorkbook.SaveAs(addbs(.pcardatapath)+"upgrade.dbf", xlDBF3)
oExcel.Activeworkbook.Close(0)