Filtering data hides row

[John]

When I filter data in Excel 2007 my totals row (at the bottom of the data)
dissappears. I put the following statement in my Worksheet_Change and
Worksheet_SelectionChange event:

Range("TotalsRow").EntireRow.Hidden = False

On large files this slows down my spreadsheet considerably. Is there a
better way to unhide this row when I filter data?

 

[Don Guillett]

Perhaps you could put your totals at the TOP.

 

[John]

I had thought about putting the totals at the top, and I may be forced to do
so. I prefer they be on the bottom. I'm thinking if I used an IF statement
in my events (If FilterMode, for example), then the statement wouldn't be
evaluated by Excel as many times? I'm still looking for ideas.

 

[Don Guillett]

Filter on one row less than the last row. Notice the -1

lr = Cells(Rows.Count, "b").End(xlUp).Row-1
With Range("a2:i" & lr)
.AutoFilter Field:=1, Criteria1:="whatever"
End With