Sub filter()
    Dim rng_source As Range
    Set rng_source = ActiveSheet.Range("a1").CurrentRegion
    rng_source.AutoFilter
End Sub