Paste Method Failure when copying between worksheets

[stubbsj]

Hi Everyone

I am trying to copy a row from one table to another on 2 seperate worksheets.

First I copy the row then create a new row in the second table. All of that works fine. However, when I actually try to paste in the new location, I get a "Paste Method of Worksheet Class Failed message" when I try to run the following code:

Sub Archive_Row()
    ' copy current row
    ActiveCell.EntireRow.Select
    Selection.Copy
    'select archive worksheet
    Sheets("Archive").Select
    ' select last cell in table
    Range("tbl_Resources[[#Headers],[Seq'#]]").Select
    Selection.End(xlToRight).Select
    Selection.End(xlDown).Select
    ' create new row in current table
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    ' select first cell on new row
    Cells(ActiveCell.Row + 1, 1).Select
    ' use following to verify for debugging
    MsgBox "NewRow " & ActiveCell.Row ' << DISPLAYS CORRECT ROW AND CURSOR IS ON CORRECT CELL
    ActiveSheet.Paste ' <<< CRASHES HERE Paste Method of Worksheet Class Failed
End Sub

Any help is appreciated.

Thanks,
Jim