Some info;

Your modified code had this;
        Set rngFilter = .Range("a1:b" & .Rows.Count).End(xlUp)
Your data is in colomn B so the search has to be in column B. Not columns A1 through the last row of column B (as your code was written). That was a typo/oversight on your part.
So, this is the correction that I have in the code I provided;
        Set rngFilter = .Range("B1:B" & .Rows.Count).End(xlUp)
Secondly, since you are now filtering Column B, The AutoFilter Field needed to be changed from Field:=1 to Field:=2