細かく読まずに、
簡単などと言ってしまった手前、
本当に簡単なのか、やってみました。
これで横からの口出しは終了にします。
お邪魔しました。

Option Explicit
Sub sample2()
  Dim n As Long
  Dim m As Long
  Dim p As Long
  Dim dbl As Long
  Dim yamada05 As Long
  Dim yamada10 As Long
  
    Sheets("sheet2").Select
retry1:
    Range("C2:C31").ClearContents
    For n = 1 To 30
retry2:
      Randomize
      m = Int(30 * Rnd + 1)
      dbl = Application.Count(Application.Match(m, Range("C2:C31"), 0))
        If dbl > 0 Then
            GoTo retry2
          Else
            Range("C" & n + 1).Value = m
        End If
    Next
    
    yamada05 = Range("C" & Application.Match("yamada05", Range("B2:B31"), 0) + 1)
    yamada10 = Range("C" & Application.Match("yamada10", Range("B2:B31"), 0) + 1)
    If Abs(yamada05 - yamada10) <= 5 Then GoTo retry1
    
    
    Range("A2:C31").Sort Key1:=Range("C2"), Order1:=xlAscending

    Sheets("sheet1").Select
    p = 1
    For n = 1 To 6
      For m = 1 To 5
        Cells(m + 1, n).Value = Worksheets("sheet2").Cells(p + 1, 2).Value
        p = p + 1
      Next
    Next
    MsgBox "done"
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他