Огромное спасибо за пример
можно закрывать
нашел другой вариант, может не правильный но сработал
текст в пустую ячейку по столбцу А после последней заполненной
Код:
begin
row:=1;
col:=2;
while Sheet.Cells[row,col].Text <> '' do
Inc(Row);
Sheet.Cells[row,col-1].Value:=edit1.Text;
end;