Adding cells to a named range failing

Hey, what do y'all think? I am trying to go through and create a range called expenditurerange for all the cells below a specific "tag" (expense category) on the row above it. I get an error on the application.union line that says method range of object worksheet failed. Any ideas?

Please Login or Register  to view this content.