Как выбрать случайные строки для каждого пользователя в таблице;и если возможно на каждый день

Question

У меня есть набор данных, который извлекается с сервера, который содержит различные столбцы, из которых один столбец имеет идентификатор пользователя;эти данные будут сохранены в листе Excel.

Моя задача состоит в том, чтобы случайным образом выбрать одну строку для каждого пользователя и вставить ее в другой лист.

Мои примеры данных будут такими, как показано ниже:

Я пытаюсь добиться этого, извлекая случайные значения.

Однако, это дает мне ошибку. Не могли бы вы помочь мне. Спасибо

Мой код (не полный):

Sub randomsmpl()
Dim data(), dict As Object, r As Long
Set dict = CreateObject("Scripting.Dictionary")

data = ActiveSheet.UsedRange.Columns(1).Value

For r = 1 To UBound(data)
    dict(data(r, 7)) = Empty
Next

data = WorksheetFunction.Transpose(dict.keys())

End Sub

Этот код был взят из Интернета и немного изменен.

Я получаюошибка «Нижний индекс вне диапазона» для строки: dict(data(r, 7)) = Empty

Пожалуйста, дайте мне знать, если есть какой-либо другой способ выполнить эту задачу.

Спасибо