My guess is that the ranges David, Jason, ..., Erica are single cell ranges, and the code clearly states
which suggests that is where the name in the worksheet is coming from.ActiveCell.FormulaR1C1 = MyCell.Formula
Are all those ranges on the same sheet and you want to print just that part, or are they on separate sheets (I cannot see where the sheet gets selected if so)?