Я уже и так делал:
n:=excel.ActiveCell.Row;
i:=2;
while i <= n do
begin
excel.WorkBooks[1].WorkSheets[1].Rows[i].Select;
excel.Selection.Insert(Shift:=xlDown);
excel.WorkBooks[1].WorkSheets[1].Rows[i].Select;
excel.Selection.Insert(Shift:=xlDown);
excel.WorkBooks[1].WorkSheets[1].Rows[i].Select;
excel.Selection.Insert(Shift:=xlDown);
int(i);
end;
и сяк но не работает