VB code for Moving Rows up and down

Hi, I have tried a search but could not find what I am looking for.

I have a spreadsheet and would like to be able to move rows up and down at the press of a button, so if I wanted to move row 20 to row 19, highlighting a cell in row 20 and then a click of a button would swap the two rows, I could then carry on and move the row all the way to the top if need be.

Is this too much to ask?

Any suggestions would be much appreciated.

Regards

Andy