Assistance with Audit code...

Hello,

I found this code searching online. The concept works; however, I am having trouble tweaking it to my needs. The code takes a random 10% of the information on sheet 1. What I would like it to do is to take random information from sheet 1 starting with line 9 instead of the whole sheet and have it pasted on Sheet 2 in the second line. Any assistance would be appreceiated.

Option Explicit
Sub Random10()
Randomize 'Initialize Random number seed
Dim MyRows() As Integer    ' Declare dynamic array.
Dim numRows, percRows, nxtRow, nxtRnd, chkRnd, copyRow As Integer
'Determine Number of Rows in Sheet1 Column A
  numRows = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row
'Get 10% of that number
   percRows = numRows * 0.1
'Allocate elements in Array
    ReDim MyRows(percRows)
'Create Random numbers and fill array
     For nxtRow = 1 To percRows
getNew:
'Generate Random number
      nxtRnd = Int((numRows) * Rnd + 1)
'Loop through array, checking for Duplicates
       For chkRnd = 1 To nxtRow
'Get new number if Duplicate is found
        If MyRows(chkRnd) = nxtRnd Then GoTo getNew
       Next
'Add element if Random number is unique
      MyRows(nxtRow) = nxtRnd
     Next
'Loop through Array, copying rows to Sheet2
  For copyRow = 1 To percRows
   Sheets(1).Rows(MyRows(copyRow)).EntireRow.Copy _
     Destination:=Sheet2.Cells(copyRow, 1)
     
  Next
End Sub

Sub Random10()
Randomize 'Initialize Random number seed
Dim MyRows() As Integer    ' Declare dynamic array.
Dim numRows, percRows, nxtRow, nxtRnd, chkRnd, copyRow As Integer
'Determine Number of Rows in Sheet1 Column A
  numRows = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row
'Get 10% of that number
   percRows = numRows * 0.1
'Allocate elements in Array
    ReDim MyRows(percRows)
'Create Random numbers and fill array
     For nxtRow = 9 To percRows
getNew:
'Generate Random number
      nxtRnd = Int((numRows) * Rnd + 1)
'Loop through array, checking for Duplicates
       For chkRnd = 1 To nxtRow
'Get new number if Duplicate is found
        If MyRows(chkRnd) = nxtRnd Then GoTo getNew
       Next
'Add element if Random number is unique
      MyRows(nxtRow) = nxtRnd
     Next
'Loop through Array, copying rows to Sheet2
  For copyRow = 1 To percRows
   Sheets(1).Rows(MyRows(copyRow)).EntireRow.Copy _
     Destination:=Sheet2.Cells(copyRow + 1, 1)
     
  Next
End Sub

Thank you for the reply. When I pasted the code I receive an "Object required" error message. Thoughts?

In which line does the code show an error(stopped)?

I noticed I copied over the Option Explicit. I added that then the code stopped at

Destination:=Sheet2.Cells(copyRow + 1, 1)

. I looked at my sheets and I had Sheet 4. I updated it to Sheet4. Now I receive an error message stating "400". Thoughts?

I have now tested the code. The error was not new. The error comes from this line

 ReDim MyRows(percRows)

if MyRows is 0, the code errors.
You need to split that line in to 2, to see the error

Sheets(1).Rows(MyRows(copyRow)).Copy
   Sheet2.Cells(copyRow, 1).PasteSpecial xlValues

since MyRows is 0, the code errors as it is an arrat

I'm sorry. I'm not understanding what I need to change to make this work on row 9 instead of row 1.

The code does not work. It is ridden with error, but if you think it is working then please show me with a sample so that I can amend it. You should attach code with the sample as I need to test and amend it.

Thank you for your assistance. I will post a new thread trying to get a macro created to randomly copy 10% from Sheet 1 to sheet 2. Is this something you are able to assist with?