Как исправить «Ошибка во время выполнения» 424 Требуется ошибка объекта

Question

Итак, чтобы максимально обобщить это, я пытаюсь создать документ, который рассчитывает одну или несколько финансовых недель за раз, используя форму пользователя (основываясь на ежедневной активности моей команды). Проблема здесь в том, что я получаю ошибку во время выполнения, когда выбираю неделю и подтверждаю свой выбор, когда отображается форма пользователя. При необходимости я также могу предоставить документ Excel.

Private Sub CommandButton2_Click()
coloana_has_been_done = "P"
test_verificare_1 = 0
test_verificare_2 = 0   
saptamana_selectata = GRPweek.ListBox1.Value   
If IsEmpty(saptamana_selectata) Or saptamana_selectata = "" Or GRPweek.ListBox1.ListIndex = -1 Then
    MsgBox "No GRP week has been selected !", vbCritical, "Error"
    Exit Sub
Else
    test_verificare_1 = 1
End If      
Dim db_page As Worksheet
Set db_page = Sheets("baza_date")

rand_data = data_cautata.Row

Set data_cautata = db_page.Columns("O:O").Find(What:=saptamana_selectata, LookIn:=xlFormulas, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)
If Range(coloana_has_been_done & rand_data).Value = 1 Then
    MsgBox "The selected GRP week is already Completed", vbCritical, "Error"
    Exit Sub
Else
    test_verificare_2 = 1
End If
If test_verificare_1 = 1 And test_verificare_2 = 1 Then
    Call grp(rand_data)
    Unload Me
End If
End Sub

Строка, которая содержит проблему времени выполнения '424':

rand_data = data_cautata.Row