Workbook.ActiveSheet.Selection.With[ - HotXLS kūrėjo žinynas

].Insert(xlShiftDown); Copy(With[Rows.Count, With ].Range[

'G7'

begin

Workbook.ActiveSheet.Selection.Offset[2, 3].Font.Underline := xlDouble;

].Insert(xlShiftDown); Copy(With[Rows.Count,

With Workbook.Sheets[1].Range['B5','G7'] do begin
   Offset[Rows.Count, 0].Insert(xlShiftDown);
   Copy(Offset[Rows.Count, 0], xlPasteAll);
end;