Copy and Paste - Bug in code

[Roses8]

Hi, I seem to be having problem with this code, all it should do is in Error Details sheet from A14:I to last row copy and paste into worksheet Error Archive in the next empty row.

but it paste back into my Error Details sheet,

Thanks.

Private Sub Update()

lastrow = Range("I65000").End(xlUp).Row
OtherLastRow = Worksheets("Error Details").Range("A65000").End(xlUp).Row + 1
Sheets("Error Details").Select
Range("A14:I" & lastrow).Copy
Sheets("Error Archive").Select
Range("A" & OtherLastRow).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False

End Sub

 

[SteveO59L]

Try

Sheets("Error Archive").Activate