oExcel=CREATEOBJECT("Excel.Application")
nARow= 2
cRange= "A"+ AllTrim(Str(nARow))
Use "Z:\ARMN\DATA\XTESTS" Alias X12 in 0 Shared 
Select X12
With oExcel
  .WorkBooks.Open(cMainTemp) 
  .ActiveWorkBook.SaveAs(cToSaveAs)
  .DisplayAlerts= .F.
  Scan
   .Sheets("Testing").Select()
   nMaxRows= .ActiveWorkBook.ActiveSheet.Rows.Count
   Do While nARow < nMaxRows
      Wait Window NoWait AllTrim(Str(nARow))
      nARow= nARow+ 1
      cRange= "A"+ AllTrim(Str(nARow))
      .Range(cRange).Select()
      If AllTrim(.Range(cRange).Value)= AllTrim(X12.Submitter)
*** I get an error on the next line
         cRanges= "B"+AllTrim(Str(nARow))
**** Subscript Out of Range (6875) (maxrows= 65536)
         cRanget= "C"+AllTrim(Str(nARow))
         cRangep= "H"+AllTrim(Str(nARow))
         .Range(cRanges).Value= AllTrim(X12.Schddate)
         .Range(cRanget).Value= AllTrim(X12.TestDate)
         .Range(cRangep).Value= AllTrim(X12.Passeddate)
      EndIf
   EndDo
   .Sheets("Arkansas Enrollment").Select()
...