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?

It probably fails because it goes to the last row and the tries to select the row after the last row, which obviously doesn't exist. You can try this altered code.

Sub export()
Sheets("Sheet1").Range("Q2:AK2").Copy
Workbooks.Open ("C:\Users\christians\Desktop\excel\test.xlsx")
Sheets("Test").Activate
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select '1st empty row in col A
ActiveCell.PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub

edit: also, please use code tags around your code to comply with forum rules.
edit2: I love how you have a folder for Christian users. :P