How can I make the below formula range consist of columns B and D, still
using the bottow row finder of .End(xlup) ? Thanks!

Set frng = Range("B5:B" & Range("D65536").End(xlUp).Row)