VBA to filter the ActiveCell whether it is a Date, Text, Amount, etc

My current VBA code is:

Sub Filter_by_Active_Cell()
    Dim ColNum As Integer
    ColNum = ActiveCell.Column - (ActiveCell.CurrentRegion.Column - 1)
    Selection.AutoFilter Field:=ColNum, Criteria1:=ActiveCell
End Sub

It works fine unless the ActiveCell is a Date ... then NO results are returned.

How can I modify this code so that whether the Activecell is an amount, text, date, etc, it will filter properly?

Your help will be appreciated.

Thank you.