Consolidation several tabs' data into a consolidation sheet via a loop?

I seem to remember something about having to activate a sheet before the filter works properly when looping through sheets. Just insert

wSheet.Activate

into the line above where LR is calculated, within the case in my code see if that works.

Also, the code you pasted back is still working on DEN instead of wSheet.