Modification and union of both codes

[Aretradeser]

Regarding these two macros, I need:
1. That in the extraction of the 5 records, do not include the title of the column.
2. Join both codes.
Thank you very much
CÓDIGO 1

Sub RegistrosAleatorios1()
  Dim arr As Variant
  Dim i As Long, x As Long, y As Long, n As Long
  '
  n = Sheets("Hoja3").Range("C" & Rows.Count).End(3).Row
  Randomize
  arr = Evaluate("=row(1:" & n & ")")
  '
  For i = 1 To n
    x = Int(UBound(arr) * Rnd + 1)
    y = arr(x, 1)
    arr(x, 1) = arr(i, 1)
    arr(i, 1) = y
  Next
  '
  For i = 1 To 5
    Sheets("Hoja1").Range("C11").Offset(0, i - 1).Value = Sheets("Hoja3").Range("C" & arr(i, 1))
  Next
End Sub

CÓDIGO 2

Sub RegistrosAleatorios2()
  Dim arr As Variant
  Dim i As Long, x As Long, y As Long, n As Long
  '
  n = Sheets("Hoja5").Range("C" & Rows.Count).End(3).Row
  Randomize
  arr = Evaluate("=row(1:" & n & ")")
  '
  For i = 1 To n
    x = Int(UBound(arr) * Rnd + 1)
    y = arr(x, 1)
    arr(x, 1) = arr(i, 1)
    arr(i, 1) = y
  Next
  '
  For i = 1 To 5
    Sheets("Hoja1").Range("C16").Offset(0, i - 1).Value = Sheets("Hoja5").Range("C" & arr(i, 1))
  Next
End Sub

 

[JLGWhiz]

See how this works

Sub RegistrosAleatorios1()
Dim sh1 As Worksheet, sh2 As Worksheet, arr As Variant, ary As Variant, sh As Long
Dim n As Long, i As Long, j As Long, x, y
Set sh1 = Sheets("Hoja3")
Set sh2 = Sheets("Hoja5")
ary = Array(sh1, sh2)
    For sh = LBound(ary) To UBound(ary)
        With ary(sh)
            n = .Range("C" & Rows.Count).End(3).Row
            Randomize
            arr = Evaluate("=row(1:" & n & ")")  '
            For i = 1 To n
                x = Int(UBound(arr) * Rnd + 1)
                y = arr(x, 1)
                arr(x, 1) = arr(i, 1)
                arr(i, 1) = y
            Next  '
            For j = 1 To 5
                If sh = LBound(ary) Then
                    Sheets("Hoja1").Range("C11").Offset(0, j - 1).Value = .Range("C" & arr(i, 1))
                Else
                    Sheets("Hoja1").Range("C16").Offset(0, i - 1).Value = .Range("C" & arr(i, 1))
                End If
            Next
        End With
    Next
End Sub

 

[Aretradeser]

It gives an error in this line of code:

Sheets("Hoja1").Range("C11").Offset(0, j - 1).Value = .Range("C" & arr(i, 1))

 

[JLGWhiz]

what is the error message?

Just noticed this line needs to be changed to

Sheets("Hoja1").Range("C16").Offset(0, j - 1).Value = .Range("C" & arr(i, 1))

Maybe both of those statements need to have the

arr(i, 1)

changed to
arr(j, 1)

 

[JLGWhiz]

It should now read

For j = 1 To 5
        If sh = LBound(ary) Then
            Sheets("Hoja1").Range("C11").Offset(0, j - 1).Value = .Range("C" & arr(j, 1))
        Else
            Sheets("Hoja1").Range("C16").Offset(0, j - 1).Value = .Range("C" & arr(j, 1))
       End If
Next

 

[Aretradeser]

This new code works correctly.
The problem is that in the random extraction of the records in column "C", they include the title of the column; and it should not be like that.
On the other hand, due to an error in my question, the first code I put must extract 6 records, instead of 5.
It is the second code that must extract 5 records.
What modifications would be necessary?
Thank you very much, JLGWhiz, for your brilliant work

 

[JLGWhiz]

i think this will do it

Sub RegistrosAleatorios3-1rev3()
Dim sh1 As Worksheet, sh2 As Worksheet, arr As Variant, ary As Variant, sh As Long
Dim n As Long, i As Long, j As Long, x, y
Set sh1 = Sheets("Hoja3")
Set sh2 = Sheets("Hoja5")
ary = Array(sh1, sh2)
    For sh = LBound(ary) To UBound(ary)
        With ary(sh)
            n = .Range("C" & Rows.Count).End(3).Row
            Randomize
            arr = Evaluate("=row(1:" & n & ")")  '
            For i = 2 To n
                x = Int(UBound(arr) * Rnd + 1)
                y = arr(x, 1)
                arr(x, 1) = arr(i, 1)
                arr(i, 1) = y
            Next
            If sh = LBound(ary) Then
                For j = 1 To 6
                    Sheets("Hoja1").Range("C11").Offset(0, j - 1).Value = .Range("C" & arr(j, 1))
                Next
            Else
                For j = 1 To 5
                    Sheets("Hoja1").Range("C16").Offset(0, j - 1).Value = .Range("C" & arr(j, 1))
                Next
            End If
        End With
    Next
End Sub

 

[Aretradeser]

Now it extracts 6 and 5 records respectively.
This part is solved.
But your code when extracting these records, includes the title of the column, and I don't need to include it.
For the extraction you must select the records from row2, not from row1 which is where the column titles are.
I don't know if I have explained myself well.
Again, I thank you very much.

 

[Aretradeser]

Now it extracts 6 and 5 records respectively.
This part is solved.
But your code when extracting these records, includes the title of the column, and I don't need to include it.
For the extraction you must select the records from row2, not from row1 which is where the column titles are.
I don't know if I have explained myself well.
Again, I thank you very much.

 

[JLGWhiz]

I don't want to have to rewrite the whole code. If I change any more it will invalidate your arrays.