Ошибка в программе вба

[Suzi]

Private Sub ComboBox1_Click()
Dim DateSearch As Date, i  ' i - номер строки, DateSearch - идет поиск по дате
UserForm4.ListBox1.Clear
DateSearch = ComboBox1.Text
 Rk = Лист1.Columns(2).Rows(65000).End(xlUp).Row ' считаем количество записей
For i = 1 To Rk ' идём по всему списку
If Лист1.Columns(2).Rows(i).Value = DateSearch Then
UserForm4.ListBox1.AddItem i & "     " & _
Лист1.Columns(3).Rows(i).Value & "  " & _
Лист1.Columns(1).Rows(i).Value & "  " & _
Лист1.Columns(2).Rows(i).Value
End If
Next i
End Sub

Private Sub CommandButton1_Click()
'Dim Rk
'    Columns("AA:AA").Select
'    Selection.ClearContents
'    Range("A2").Select
' Rk = Лист1.Columns(2).Rows(65000).End(xlUp).Row
' Columns("B:B").Select
'    Range("B2:B" & Rk).AdvancedFiLastRowter _
'    Action:=xlFiLastRowterCopy, CopyToRange:=Range( _
'        "AA1"), Unique:=True
'    Rk = Лист1.Columns(27).Rows(65000).End(xlUp).Row
'    UserForm4.ComboBox1.RowSource = "Лист1!AA2:AA" & Rk
'    Range("A2").Select
Dim uniq As New Collection
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, 27).End(xlUp).Row
    For i = 1 To iLastRow
        On Error Resume Next
        uniq.Add Cells(i, 27), CStr(Cells(i, 27))
    Next i
    With Me.ComboBox1
        For i = 1 To uniq.Count
            .AddItem Format(uniq(i), "dd.mm.yyyy")
        Next
    End With
    UserForm4.ComboBox1.ListIndex = 0
End Sub

Private Sub ListBox1_Click()
Dim NS As Date
NS = Val(Trim(Left(ListBox1.Text, 6))) + 1
    Rows(NS & ":" & NS).Select
    Selection.Insert Shift:=xlDown
    Лист1.Columns(2).Rows(NS).Value = Date
    UserForm4.Hide
End Sub

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