Sub mrshkei()
Dim arr, arr2, i As Long, n As Long, lr As Long, lr2 As Long, x1 As Long, x2 As Long
Dim col As New Collection, col2 As New Collection, col3 As New Collection, j1 As Long, j2 As Long, r As Long
    x1 = Range("M2"): x2 = Range("N2")
    lr = Cells(Rows.Count, 3).End(xlUp).Row: lr2 = Cells(Rows.Count, 1).End(xlUp).Row
    j1 = 2: j2 = 2
    For i = 2 To lr
        x = Application.WorksheetFunction.CountIf(Range(Cells(i, 4), Cells(i, 11)), x1)
        If x = 0 Then
            Cells(j1, 16) = Cells(i, 3): j1 = j1 + 1
            On Error Resume Next
            col2.Add Cells(i, 3), CStr(Cells(i, 3))
        End If
    Next i
        For i = 1 To 99999
        r = WorksheetFunction.RandBetween(2, lr2)
            On Error Resume Next
            col2.Add Cells(r, 1), CStr(Cells(r, 1))
            col.Add Cells(r, 1), CStr(Cells(r, 1))
            If col.Count = x2 Then
                For n = 1 To col.Count
                    Cells(j2, 18) = col(n): j2 = j2 + 1
                Next n
            Exit For
            End If
        Next i
        
        For i = 1 To 99999
        r = WorksheetFunction.RandBetween(1, col2.Count)
            On Error Resume Next
            col3.Add r, CStr(r)
            If col3.Count = col2.Count Then
                For n = 1 To col3.Count
                    Cells(n + 1, 20) = col2(col3(n))
                Next n
                Exit Sub
            End If
        Next i
End Sub