...
rn= 1 
For i =  2  To oWebTable.RowCount
    DataTable.SetCurrentRow(rn)
    DataTable.Value("A")=oWebTable.GetCellData(i, 1 )
    rn=rn+ 1 
Next

Public Function getCellVal(byRef table, byRef col)

    set oTable = table.Object
    rn= 1 
    col = col- 1 

    For i= 1  to table.rowcount- 1 
        set curCell=oTable.rows(i).cells(col)
        DataTable.SetCurrentRow(rn)
        
        DataTable.Value("A")=curCell.innertext
        
        rn=rn+ 1 
        Next

End Function