How to choose Random rows??

Function GetFilteredRowCount(FilterRange As Range) As Long
 
  Dim I As Long
  Dim RowCount As Long
 
    On Error GoTo ReturnRows
 
      With FilterRange.SpecialCells(xlCellTypeVisible).Areas
        For I = 1 To .Count
          RowCount = RowCount + .Item(I).Rows.Count
        Next I
      End With
 
ReturnRows:
    GetFilteredRowCount = RowCount
 
End Function
 
 
Sub Random_Filter()
Dim i As Integer
Dim vCol, fCol, LR, vCells As Long
Dim wsM  As Worksheet
Application.ScreenUpdating = False
Set wsM = Sheets("TestRandom")
With wsM
  vCol = .Rows(1).Find("DATA1", LookIn:=xlValues, LookAt:=xlWhole).Column
  fCol = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
  LR = .Cells(.Rows.Count, vCol).End(xlUp).Row
  .Cells(1, fCol) = "Flag"
  .Range(.Cells(2, fCol), .Cells(LR, fCol)).FormulaR1C1 = "=RAND()"
  ' Check and include Unique Random module here
  '.Range(.Cells(2, fCol), .Cells(LR, fCol)).FormulaR1C1 = "=Unq_Random_Between()"
  For i = 1 To 10
    .Columns("A:J" & Cells(Rows.Count, 1)).AutoFilter field:=1, Criteria1:="=" & i
    .Columns("A:J").AutoFilter field:=9, Criteria1:="<" & (5 / 100)
 
    vCells = .Cells(.Rows.Count, fCol).End(xlUp).Row
    With Range("A1:J" & Cells(Rows.Count, fCol).End(xlUp).Row)
         .Resize(.Rows.Count - 1, 1).Offset(i, fCol).SpecialCells(xlCellTypeVisible) = "Sample_" & i
    End With
    .Columns("A:J" & Cells(Rows.Count, 1)).AutoFilter
  Next
End With
End Sub

Sub RandomFilter()
Dim p As String
Dim wsM As Worksheet
Dim rndRowRng(), rndRowSamples() As Variant
Dim rngVSR, rngFR As Range
Dim i, x, rowNum As Integer
Dim vCol, fCol, LR, vCellCount, randRow, A As Long
Application.ScreenUpdating = False
Set wsM = Sheets("TestRandom")
With wsM
vCol = .Rows(1).Find("DATA1", LookIn:=xlValues, LookAt:=xlWhole).Column
fCol = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
LR = .Cells(.Rows.Count, vCol).End(xlUp).Row
.Cells(1, fCol) = "Flag"
.Range(.Cells(2, fCol), .Cells(LR, fCol)).FormulaR1C1 = "=ROW()-1"
 
ReDim rndRowRng(2 To LR) As Variant
ReDim rndRowSamples(2 To LR) As Variant
For i = 1 To 10
.Columns("A:J" & Cells(Rows.Count, 1)).AutoFilter field:=1, Criteria1:="=" & i
If .FilterMode Then
With .AutoFilter.Range
   Set rngVSR = .Columns(1).Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
End With
Else
   MsgBox "Filters not Set." & vbLf & "Processing Terminated."
   Exit Sub
End If
vCellCount = rngVSR.Cells.Count
p = InputBox("Enter Sheet Name: ", "User Type")
Randomize
If p = "New" Then
  randRow = Int(vCellCount * (5 / 100))
ElseIf p = "Existing" Then
  randRow = Int(vCellCount * (2.5 / 100))
End If
For rowNum = 2 To LR
   rndRowRng(i) = rngVSR.Cells(i, 9).Value
Next rowNum
ReDim Preserve rndRowRng(2 To LR) As Variant
 
' Invoke Tushar Mehta's code here
 
For x = LBound(rndRowSamples) To UBound(rndRowSamples)
  With Range("A1:J" & Cells(Rows.Count, fCol).End(xlUp).Row)
     .Resize(.Rows.Count - 1, 1).Offset(i, .Cells(x, 10)).SpecialCells(xlCellTypeVisible) = "Sample_" & i
  End With
Next x
Erase rndRowRng
.Columns("A:J" & Cells(Rows.Count, 1)).AutoFilter
Next i
End With
End Sub

Sub Swap(ByRef Arr() As Variant, ByVal i As Long, ByVal j As Long)
   Dim temp As Variant
   temp = Arr(i): Arr(i) = Arr(j): Arr(j) = temp
End Sub
 
Sub RandomSelect(ByRef Arr() As Variant, ByVal N As Long)
  Dim z As Long, Idx As Long
  'Need edits to ensure Arr is an acceptable data type. Similarly, validate n
  For z = 1 To N
  Idx = LBound(Arr) + (z - 1) + Int((UBound(Arr) - (LBound(Arr) + (z - 1)) + 1) * Rnd())
  Swap Arr, LBound(Arr) + (z - 1), Idx
  Next z
End Sub