Macro to take the active cell, copy and cut entire row, paste into a new row in same sheet

hi there

I am trying to write a Macro to take the active cell, copy and cut entire row, paste into a new row in same sheet (further down page in a another section), and then go back and delete the cut row from above. Each time it pastes the copied cells into the sheet below it needs to go onto the next row below.

for example in line 17, I want to be able to be click on cell B17 (and activate the macro) that will copy the entire row and then paste it into row 43. and then delete the entire row from line 17.

when i do this for the next selection, which could be any line i.e. copy row 32 cut and insert below into the next available row below the last entry - so that would be row 44.
it needs to insert a row below each time as there are 20 available rows but there is a possibility this action could happen 500 times - so each time it will need to insert a new row.

(Using Excel 2010)

thanks in advance

Feel free to upload an example workbook.

An example (put the code in the Sheet module),

Please Login or Register  to view this content.

where, if you double click on a cell in Col.B, the whole row will be moved down to the last non-empty row in Col.B.

Hope this helps,

berlan

Thanks, when i use this code it comes up with run time error 424, object required

Maybe:

Please Login or Register  to view this content.