Есть записанный макрос, который копирует ячейки в выбранный диапазон, дело в том что строки могут добавляться и тогда все плывет, как сделать чтобы диапазон был динамический?
Код |
---|
Range("E45:E48,E53:E54,E59:E62").Select Range("E59").Activate Selection.Copy ActiveWindow.SmallScroll Down:=6 Range("B68:B77").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Range("F45:F48,F53:F54").Select Range("F53").Activate Selection.Copy Range("C68:C73").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Range("G59:G62").Select Selection.Copy Range("C74:C77").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Range("E64").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "" Range("B67:C77").Select ActiveWorkbook.Worksheets("Detailed").sort.SortFields.Clear ActiveWorkbook.Worksheets("Detailed").sort.SortFields.Add Key:=Range( _ "B68:B77"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Detailed").sort .SetRange Range("B67:C77") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("D64").Select End Sub |