Excell Sheet Automation using QTP

'Get Row Count from 1 to End

'Get Total Row count -->DataTable.GetSheet("Action1").GetRowCount

For i=1 to DataTable.GetSheet("Action1").GetRowCount 

'Store value of Metrics Column "A" of Action 1 in variable called Report_Name

Report_Name= DataTable("A", dtLocalSheet)

'Move focus to next Row

DataTable.GetSheet("Action1").SetNextRow

'Get Row count and convert it into Integer & store it in total_rows variable

total_rows=int (DataTable.GetSheet("A").GetRowCount)

For i=1 to total_rows

'Generate Random Number

  x=   Int((total_rows - 1 + 1) * Rnd + 1)

'Move Focus to the Randomly selected Row

DataTable.SetCurrentRow(x)