AutoFilter range Value

Set rng = Worksheets("Sheet1").Range("A1").CurrentRegion.SpecialCells(xlVisible)

If, instead, you are looking for the Autofilter criteria setting, the following function is from Stephen Bullen. It takes a cell within the filtered column and returns the filter criteria.

Function FilterCriteria(oRng As Range) As String
Dim sFilter As String
On Error GoTo NoMoreCriteria
With oRng.Parent.AutoFilter
'Is it in the AutoFilter range?
If Intersect(oRng, .Range) Is Nothing Then _
GoTo NoMoreCriteria
'Get the filter object for the appropriate column
With .Filters(oRng.Column - .Range.Column + 1)
'Does this column have an AutoFilter criteria?
If Not .On Then GoTo NoMoreCriteria
'It has one!
sFilter = .Criteria1
'Does it have another (i.e. the "Custom" filter)?
Select Case .Operator
Case xlAnd
sFilter = sFilter & " AND " & .Criteria2
Case xlOr
sFilter = sFilter & " OR " & .Criteria2
End Select
End With
End With
NoMoreCriteria:
FilterCriteria = sFilter
End Function