Move record to different sheet and then deleting it through a userform command button

Hi,

I have a button on a worksheet called Properties which when clicked, opens a UserForm which shows the details of the data on the row of the active cell. What I want to do is have a command button on the userfom which when pressed, will move the active cell row to another sheet called Archive in the next available row. Here is the code I have at the moment:

Please Login or Register  to view this content.

With this code, I get the error Run-time error '1004': Method 'Range' of object'_Global' failed

Once the record has been moved, I want that record (and the row) to be deleted. In other words, there won't be a gap once the record is deleted.

I have looked all over the internet but nothing has helped really.

Thanks for any help