Run time error '91

[Jim May]

In a standard module I have:
Any help appreciated.

Public Sub CopyFilter()
Dim rng1 As Range
Dim rng2 As Range
Sheets("POReqs").Select
With ActiveSheet.AutoFilter.Range <<< R/T Error Here _Why???
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1)
.SpecialCells (xlCellTypeVisible)
On Error GoTo 0
End With
..... more code follows...

 

[Jim May]

Sorry, failed to add R/T comment:
Object Variable or With Block Variable not set

 

[Tom Ogilvy]

You would get that error if you don't have an autofilter on the worksheet.

With the autofilter dropdowns showing, no problem

? activesheet.autofilter.Range.address
$C$5:$C$17