Workbook.ActiveSheet.Selection.Offset[2, 3].Font.Underline := xlDouble;
With Workbook.Sheets[1].Range['B5','G7'] do begin Offset[Rows.Count, 0].Insert(xlShiftDown); Copy(Offset[Rows.Count, 0], xlPasteAll); end;