[sailen]

Огромное спасибо за пример
можно закрывать

нашел другой вариант, может не правильный но сработал

текст в пустую ячейку по столбцу А после последней заполненной

Код:

 begin
  row:=1;
  col:=2;
  while Sheet.Cells[row,col].Text <> '' do
  Inc(Row);
  Sheet.Cells[row,col-1].Value:=edit1.Text;
  end;