ออฟเซ็ตช่วง

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;