Re: adding a test case using OTA

Try this

i=2 'start with row 2
Do while not isempty(ws.cells(i,1).value)
sampleTest.Field("TS_NAME") = ws.Cells(i, 3)
sampleTest.Field("TS_USER_01") = ws.Cells(i, 7) ' Active
'<rest of test fields here>

sampleTest.Post
' create test steps
Set dsf = sampleTest.DesignStepFactory
Set stepList = dsf.Newlist("[empty]")

' loop through all the steps
‘On Assumption Test Name will not be repeated in rows with Test Steps
Do while isempty(ws.cells(i,1).value) and not isempty(ws.cells(i,4).value) ‘ assuming step name is stored in column 4. Replace with appropriate column
Set dstep = dsf.AddItem(Null)
dstep.StepName = ws.Cells(i, 4)
dstep.StepDescription = ws.Cells(i, 5)
dstep.StepExpectedResult = ws.Cells(i, 6)
dstepList.Add (dstep)
dstep.Post
i=i+1
Loop
Loop