Cut/paste array starting at preselected cell

Cells in column D in my program have various data. I would like to have the user select any 0ne cell in that column and then have the macro select all cells starting with the selected cell down 100 cells and move the entire array down to start four cells below its original position. Help would be appreciated.

Something like this, perhaps:

Please Login or Register  to view this content.