Move Values in range to fill blanks in range grab values for column 2 to fill remaining.

So the title may be a bit a complicated. Essentially what I'm trying to do is 3 parts.

1. Column A and B are my to-do section with Column A holding the Task and B the status of the task. So in this part all tasks that have an x in column B get cleared in column A. This part works.

2. All tasks that did not have a x in column B remain. This is where things get tricky. I'm trying to move all the remaining tasks up the range to to fill in the blanks on that range.

3. Once those tasks are moved up I need to grab from Column D, which holds my over flow tasks to fill in the remained of the range for Column A. I don't need the entire range filled I just need the over flow moved.

I believe a large part of my issue is that my tasks in range A has blank cells between the tasks, as I print this file out and sometimes need to add notes to my tasks. This section is actually apart of a larger planner I maintain so I'm trying to maintain my overall layout for this section.

Attached is a mock up of what I'm trying to do with the code, but like I said the only part I have working right now is part one. Any advice would be greatly appreciated on how to fix this. Even if I have to change the layout.

Thank you.