Move Cell One Column Right Offset Rows

I have sheet1 with four columns. Team, Issue, Discussion and Recommendation. Discussion and Recommendation headings were placed in column B along with the data in the file I was sent. I need to get it back into table format to eventually load into Access. What I'm trying to do is to loop reading down column B. When I find the word “Discussion” (exact format) I need to drop down one row below the word, cut whatever is in the row, move one column to the right, Column C, and two rows up and paste. For example, cell B3 has “Discussion”. I need to drop to B4, cut whatever is in the cell and move to C2 and paste. I also need the same to happen for Recommendation. Find the word, drop down one row, cut whatever is in the cell, move two columns to the right and up four rows. I would like to delete the rows I moved data from, but will do that by hand if it’s too hard to do in a macro.

An example of my data:
TeamText
Design4. Reuse existing code to extent possible.
DesignDiscussion
DesignNo discussion
DesignRecommendation
DesignEstablish a baseline and work to the plan.
Design5. Delete old code
DesignDiscussion
DesignNo discussion
DesignRecommendation
DesignNo recommendation
Design6. Plan to work without full details.
DesignDiscussion
DesignIncremental design
DesignRecommendation
DesignWork on smaller details first

Sub Discussion()..................