Code:
Range(Cells(5,1), Cells(Rows.Count, "A").End(xlUp)).Resize(,11).Select
This should replace the two lines of code. Select is very seldom needed and you should see if you can adapt the code.
Using xlDown could be dangerous if there is a blank cell in the range.