Offest (x,y) in a filtered sheet

Hi

I need a simple macro that does this:

ActiveCell.Offset(5, -5).Range("A1").Select

The problem is that my sheet is filtered and this code counts the invisible rows as well. What do I need to add to the code to consider only visible rows?
Thanks