For question 1 get your button to run test:
Dim tempR As Range
Set tempR = ActiveSheet.UsedRange
Sub switch(rng1 As Range)
'check to see if AutoFilter is on
If rng1.Parent.AutoFilterMode Then
' Filter is applied - next line turns it off
I'm thinking about the second question but don't expect a quick response!