Autofilter range criteria filter only last cell value in range

[SAGAR KHOLLAM]

Hi,

Below code filter only for last cell value in range

Sub AutofilterbyRange()

Dim rng As Range
Dim rngfilter As Range
Set rng = Application.Range("f1:f4")
Set rngfilter = Range("a1").CurrentRegion

rngfilter.AutoFilter field:=1, Criteria1:=rng

End Sub

what i need is code should fiter for all cell values in range

Thanks

SAGAR