工作表1的最后一行复制到工作表2的最后一行

求救论坛里的高手大侠们，如何把工作表一最后一行复制到工作表二的最后一行，也是就有数据的下一行。我是初学VBA，搞了一天了，搞成这个样子，始终达不到要求，头都要爆了，只好向各位高手们求救了。

Sub 复制()
    Worksheets(1).Range("A65536").End(3).Resize(1, Worksheets(1).UsedRange.Columns.Count).Copy Worksheets(2).Range("A65536").End(3).Offset(1, 0)
End Sub