Поиск дат в заданном диапазоне

Sub data()
Dim i As Integer
Dim a As Integer
Dim n As Integer
 
a = "20.01.2017"
n = "30.01.2017"
 
For i = 10 To 21
 
If n < Cells(i, 4) > a Then Cells(i, 4).Copy
 
Cells(i, 5).PasteSpecial
Next
 
End Sub

Dim r&, startDate As Date, endDate As Date
 
startDate = #1/20/2017#
endDate = #1/30/2017#
 
Application.ScreenUpdating = False
Range("E10:E21").Clear
Range("E10:E21").NumberFormat = "dd/mm/yyyy"
 
For r = 10 To 21
    Select Case Cells(r, 4)
        Case startDate To endDate: Cells(r, 5) = Cells(r, 4)
    End Select
Next
Application.ScreenUpdating = True

Dim startDate As Date, endDate As Date, r&, arr As Variant
 
startDate = #1/20/2017#
endDate = #1/30/2017#
 
arr = Range("D10:D21").Value
 
For r = 1 To UBound(arr)
    Select Case arr(r, 1)
        Case startDate To endDate
        Case Else: arr(r, 1) = Empty
    End Select
Next
 
Range("E10:E21") = arr

startDate = CDate(UserForm1.TextBox1.Value)

Private Sub CommandButton1_Click()
 
Dim startDate As Date, endDate As Date, r&, arr As Variant
 
startDate = CDate(TextBox1)
endDate = CDate(TextBox2)
 
...
 
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = Not IsDate(TextBox1)
End Sub
 
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = Not IsDate(TextBox2)
End Sub

a = CDate("20.01.2017")
n = CDate("30.01.2017")
 
If  Cells(i, 4) > a and  Cells(i, 4)  < n Then Cells(i, 5)= Cells(i, 4)

Cells(i, 5)= Format(Cells(i, 4),"dd.mm.yyyy")