[FRANKER]

Yo lo que hago es localizar la ultima linea de Excel y guardar en una variable el Nº de linea:

ExcelGoToLastRow(Excel);
MaxRow := ExcelGetRow(Excel);
ExcelGoToTopRow(Excel);

MaxRow es un Integer con la última línea de la hoja de excel. El código de las funciones lo tienes aki :

procedure TFmImportar.ExcelGoToLastRow(Excel : Variant);
Begin
  Try
    Excel.Selection.End[xlDown].Select;
  Except
  End;
End;

procedure TFmImportar.ExcelGoToTopRow(Excel : Variant);
Begin
  Try
    Excel.Selection.End[xlUp].Select;
  Except
  End;
End;

Function TFmImportar.ExcelGetRow(Excel : Variant): Integer;
Begin
  Result := 1;
  Try
    Result := Excel.ActiveCell.Row;
  Except
    Result := 1;
  End;
End;

Saludos y Suerte!!!