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:

Private Sub frm_Archive_Click()

Sheets("Properties").Select
Range(ActiveCell.Row).Select
Selection.Copy

Sheets("Archive").Select
Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Sheets("Properties").Select
Range(ActiveCell.Row).Select
Application.CutCopyMode = False
Selection.ClearContents

End Sub

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