Sub insertrows()
'
' insertrows Macro
'
' Keyboard Shortcut: Ctrl+x
'
Dim wb As Workbook, sht As Worksheet, rng As Range, lRow As Integer
Set wb = ThisWorkbook: Set sht = wb.ActiveSheet
lRow = sht.Rows.End(xlDown).Row
Set rng = sht.Range("A16:L" & lRow)
rng.Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Sheets("Sorted").Select
Range("A16").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Sorted").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sorted").Sort.SortFields.Add2 Key:=Range(rng _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sorted").Sort
.SetRange Range("A16:L60")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(12), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Range("L18:M18").Select
Range(Selection, Selection.End(xlDown)).Select
Range("M18:M92").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.FormulaR1C1 = "1"
ActiveSheet.Outline.ShowLevels RowLevels:=3
Range("L17:M17").Select
Range(Selection, Selection.End(xlDown)).Select
Range("M17:M92").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Range("M17").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("L17:M17").Select
Range(Selection, Selection.End(xlDown)).Select
Range("M17:M92").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.EntireRow.Insert
Columns("M:M").Select
Range("M5").Activate
Selection.ClearContents
ActiveSheet.Outline.ShowLevels RowLevels:=2
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A17:L123").Select
ActiveSheet.Outline.ShowLevels RowLevels:=3
Selection.Copy
Sheets("Invoice").Select
Range("A17").Select
ActiveSheet.Paste
End Sub