In the following example, the contents of the range that's two row down and three columns over from the selected range on the active Worksheet are formatted as double-underlined.
Workbook.ActiveSheet.Selection.Offset[2, 3].Font.Underline := xlDouble;
The following example makes the copy of range B5:G7 under it.
With Workbook.Sheets[1].Range['B5','G7'] do begin
Offset[Rows.Count, 0].Insert(xlShiftDown);
Copy(Offset[Rows.Count, 0], xlPasteAll);
end;