Как скопировать последние 10 активных строк вместо последней активной строки

В настоящее время у меня есть код vba, который скопирует последнюю активную строку с формулами и всеми и вставляет ее в следующую строку под ней. Вместо этого я бы хотел, чтобы он копировал последние 10 активных строк и вставлял их под него. Может кто-нибудь помочь мне настроить текущий код, чтобы помочь это?

'Sub RunMost() Dim ws As Worksheet For Each ws In Sheets If ws.Name = ("Sheet1") Then ws.Activate ' Go to last cell Cells(Rows.Count, 2).End(xlUp).Offset(2, 0).Select ' Copy formula from cell above Rows(Selection.Row - 1).Copy Rows(Selection.Row).Insert Shift:=xlDown End If Next ws End Sub 

• Скопировать из локального Excel 2010 и вставить формулу на удаленный (Citrix server) Excel 2013 не работает
• Копировать-вставить цикл с пропущенными значениями в VBA
• Копирование и вставка VBA Транспонирование данных из нескольких столбцов
• Копировать / Вставить не будет вставлять содержимое (выберите пункт назначения и нажмите клавишу ввода ...)
• Присоединение к трем частям кода «Открыть диалоговое окно» «Вырезать и вставить» и «Разбить колонку»