How to filter by calendar in Excel?

Question

Macros

There is a table with dates of the form 02/10/2016-04/15/2016 It is
necessary to make a calendar in the document, when you click on a specific date, so that only those records whose time range satisfies the selected day remain in the table.
Tell me how to implement, if it's not difficult for you.

Answer 1

Here is the file itself
How to add a calendar
The code of the procedure for clicking on the date

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    Dim i, col As Integer
    i = 1
    col = 1 ''' номер ячейки с датами '''
    While (Cells(i, col) <> "")
        Rows(i).Select
        If Cells(i, col) <> DateClicked Then
            Selection.EntireRow.Hidden = True
        Else
            Selection.EntireRow.Hidden = False
        End If
        i = i + 1
    Wend
End Sub