Copy row from one sheet to other sheet

Sub copyrow()
Set wb = ThisWorkbook
Set wbdev = Workbooks.Open(wb.Path & "\Devicess.xlsx")
Sheets("Data").Select
lr = Cells(Rows.Count, "A").End(xlUp).Row + 1
wb.Sheets("Email Data").Range("A9:L9").Copy Cells(lr, 2)
Cells(lr, 1) = Date
End Sub