Ari Alves

Bom, acho que é isso que tas querendo. Sub Inserir_linha() ' ' Inserir_linha Macro ' ' Rows("5:7").Select Selection.EntireRow.Hidden = False Rows("6:6").Select Selection.Copy Rows("7:7").Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False Range("A1").Select Selection.Copy Range("A7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A7:A24").Select ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("A7"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Plan1").Sort .SetRange Range("A7:B9") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Rows("6:6").Select Selection.EntireRow.Hidden = True Range("B7").Select ActiveCell.SpecialCells(xlLastCell).Select Selection.End(xlToLeft).Select End Sub