Copy cell data from worksheet 1 to worksheet 2 - run macro to create and print document

I am on a diet to lose weight - it is working and I have decided to create my own calorie plan (see attachment).

In columns "D-J" I select which food I require for pre breakfast, breakfast, morning tea, lunch, afternoon tea, dinner and before bed.

The calorie count should not exceed 1800 - at least that is the plan. See R85.

What I want to do is to create a printed document (exampled in O1:V63).

I am a newbie but learning quickly.

Can you assist?