Iterere over rows i QTP - Mercury

Jeg sidder med et automatiseringsværktøj (QTP -Mercury) hvor jeg skal iterere over flere rækker i et internt Excelark i værktøjet. Jeg er ikke stærk i Visual basic, da jeg ikke tidligere har arbejdet med det. Jeg har denne kodestump:

Public Function ClearDataTable
Rows=DataTable.SetCurrentRow
'MsgBox Rows
For n=1 to Rows+1
DataTable("Cpr", dtGlobalSheet) = ""
DataTable("Date", dtGlobalSheet) = ""
DataTable("Salary", dtGlobalSheet) = ""
DataTable("Kundeaftale", dtGlobalSheet) = ""
DataTable("End", dtGlobalSheet) = ""
DataTable.GlobalSheet.DeleteRows
Next
End Function

Og ideen med denne stump er, at når værktøjet har kørt én kørsel sletter det den første række i Excelarket og kører en gang til og sletter den næste række i Excel arket og så fremdeles. Er der nogen der har nogle ideer til hvordan dette kan løses?