how to filter all dates between two dates

[mana]

A1: 10-January-2019
A2: 23-January-2019

Option Explicit


Sub test()
    Dim r As Range
    Dim d1 As Long
    Dim d2 As Long
    
    With Sheets("sheet1")
        .Activate
        Set r = .Range("D1", .Range("D" & Rows.Count).End(xlUp))
        d1 = .Range("a1").Value2
        d2 = .Range("a2").Value2
    End With


    r.Worksheet.AutoFilterMode = False
    r.AutoFilter 1, ">=" & d1, xlAnd, "<=" & d2
    If r.SpecialCells(xlCellTypeVisible).Count > 1 Then
        Intersect(r, r.Offset(1)).Select
    Else
        r.AutoFilter
        r(1).Select
    End If
    
End Sub