Not really sure what you are trying to achieve but the following example
gives a simplistic way of reading the data and displaying in a message box so
perhaps it will give you a lead on what you need to do. You indicated that
the number of columns is fixed and the following sets the number of columns
but can have any number of rows and stops when it does not find any more data
in the first column of a row.

Sub Read_Cell_Values()
Dim rowNumber
Dim firstColumn
Dim numbColumns

rowNumber = 2 'Set to match the first row of your data
firstColumn = 1 'Set to match first column number with data
numbColumns = 89 'Set to number of columns of data

Do While Len(Trim(Cells(rowNumber, firstColumn))) < 0
For i = firstColumn To numbColumns
MsgBox Cells(rowNumber, i).Value
Next i
rowNumber = rowNumber + 1
Loop

End Sub

Regards,

OssieMac


"shantanu" wrote:

hi
I am trying to read the values from a excel row. There are 89
columns for each row and same number of data in each rows.
Kindly help

regards
shantanu