Trouble with range when using filter macro for other data sets

[BG1983]

Hi, I have made a macro (via recording and then cleaning up) and have run into a problem. The range of data I used for my initial record is limiting my future use of the macro to that same range (row count). I tried increasing the number, more than the range referenced in the initial record but it caused an error.

The two formulas relating to this are below:

ActiveSheet.Range("$A$1:$AL$132").AutoFilter Field:=16, Criteria1:="<>"

Range("S2:S132").Copy

I was thinking I could use dim/set lr and then reference lr but I havent ever done that while filtering - will that still work??

Thanks for any help

[MarvinP]

Hi BG

Try to
Dim LastRow as Double
LastRow = Cells(Rows.Count,"A").End(xlUp).Row
Then
ActiveSheet.Range("$A$1:$AL$" & LastRow).AutoFilter Field:=16, Criteria1:="<>"
and
Range("S2:S" & LastRow).Copy

Hope that works...