Here's one I did recently. Adapt to suit your dropdown.

Sub filterandcopy()
For i = 1 To 3
dlr = Sheets("sheet13").Cells(Rows.Count, "b").End(xlUp).Row + 1
slr = Cells(Rows.Count, "a").End(xlUp).Row
With Range("A1:d" & slr)
..AutoFilter Field:=1, Criteria1:=i
..Offset(1).Copy Sheets("sheet13").Cells(dlr, "b")
..AutoFilter
End With
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"edward" wrote in message
...
Is it possible to get access to data appearing on the auto filter dropdown
lists which show at the top of the filtered range?
Would it be possible to control filtering operation from data validation
dropdown lists put on a different worksheet than that containing the
filtered range?