[Aleca]

Código Delphi [-]
  while True do
  begin
    .... 
    Rango := ExcelApp.Range[cRango_Ficha, cRango_Ficha];
    nId := Rango.Value2;
    if nId = 0 then
      Break
    else
    begin
      ExcelApp.StatusBar[0] := 'Actualizando Fila N° ' + IntTostr(nFila);
      PonerDatos(nId, nFila);
    end;
    Inc(nFila);
  end;

estó lo uso para actualizar datos en una planilla a partir de una columna que contiene un valor hasta q llegue a una fila sin valor (vacia), asegurate q esa columna siempre tiene algun dato.