for some reason my range isn't working right.
'set new range
lr = Cells(Rows.Count, "B").End(xlUp).Row
Set rng = Range("A1").Resize(lr, Val(Mid(Worksheets(1).Range("B4"), 6)) - 1)
on worksheet B4, it lists: "Week9", this may change, and I want to set my range from A1 up until that text of the B4 on worksheet "RUN". How can I get this to work properly?