如何复制最后10个活动行而不是最后一个活动行

Question

目前我有一个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

Answer 1

range(rows(selection.row-11),rows(selection.row-1)).copy