Something like this (not tested):

create cursor TmpResult (Col1 I, Col2I, ...) && I am assuming it is temporary, for a report, but you can use a table as well
select InitialTable
scan
  lnValue = Values
  select TmpResult
  do case
  case between(lnValue, 100000, 199000)
    lcColumn = "Col1"
  case between(lnValue, 200000, 299000)
    lcColumn = "Col2"
  case ...
  endcase
  locate for empty(&lcColumn)
  if eof()
    append blank
  endif
  replace (lcColumn) with lnValue
endscan

>Sir,
>
>I have following data
>
>createcursor no (no i)
>insertinto no values (1045)
>insertinto no values (1057)
>insertinto no values (1582)
>insertinto no values (100595)
>insertinto no values (138143)
>insertinto no values (200129)
>insertinto no values (400290)
>insertinto no values (500692)
>insertinto no values (526834)
>insertinto no values (604796)
>insertinto no values (636867)
>insertinto no values (650205)
>insertinto no values (702060)
>insertinto no values (828486)
>insertinto no values (900428)
>insertinto no values (915414)
>insertinto no values (971656)
>insertinto no values (998987)
>
>Table has only one fixed length column as n(6).
>
> I want to get this result:
>Attachment: Image1
>
>and data range in columns is as under:
> Attachment: Image2
>
>Please help me