macro to copy cells to a new workbook doesn't work properly

I have this code:

Sub export()
Sheets("Sheet1").Range("Q2:AK2").Copy
Workbooks.Open ("C:\Users\christians\Desktop\excel\test.xlsx")
Sheets("Test").Activate
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub

Basicly I want to copy a range of cells to a new workbook. I want to paste the value of the cells on the first empty row. The code doen't work, I'm not sure but it seems like the code goes to the very last row of the workbook and then tries to paste the cells on nonexisting row under it. Can anyone please help me wit this?