Macro to move contents of cells chosen to predetermined spot on sheet.

I have a sheet that tracks tools along with serial numbers. The sheet is broken down into sections and depending on what section selected to move some info changes. for Example,
I want to move the Serial Number in Cell 'A13' to to cell 'B50' -
Then in 'A50' the Type of tool that was which is in 'A12"
Then in Cell 'C50' the current date is placed.

everytime you select a serial number and click the macro say Shipped it does that over again but the info goes in row 51 and so on.

I have attached a sheet so you can get a visual.

I have already completed the first move so you can see what it looks like,

As you can see once it moves the contents from cell A13 down to the shipped area it leaves a blank. I would also like for the macro to adjust the rest of data in that column up so there are no empty spaces.